@@ -1199,11 +1199,12 @@
      ;; Weird special calls that need to run *after* the server has started?
      ;;======================================================================
      
      (if (args:get-arg "-list-targets")
          (if (launch:setup)
-             (let ((targets (common:get-runconfig-targets)))
+             (let* ((rconfdat (configf:read-config (conc *toppath* "/runconfigs.config") #f #f))
+		    (targets  (common:get-runconfig-targets rconfdat)))
                ;; (debug:print 1 *default-log-port* "Found "(length targets) " targets")
                (case (string->symbol (or (args:get-arg "-dumpmode") "alist"))
                  ((alist)
                   (for-each (lambda (x)
                               ;; (print "[" x "]"))