@@ -397,12 +397,13 @@
 
 ;; (map print (map car (hash-table->alist (read-config "runconfigs.config" #f #t))))
 (define (common:get-runconfig-targets #!key (configf #f))
   (sort (map car (hash-table->alist
 		  (or configf
-		      (read-config "runconfigs.config"
-			       #f #t))))
+		      (read-config (conc *toppath* "/runconfigs.config")
+			       #f #t)
+		      (make-hash-table))))
 	string<?))
 
 ;; '(print (string-intersperse (map cadr (hash-table-ref/default (read-config "megatest.config" \#f \#t) "disks" '"'"'("none" ""))) "\n"))'
 (define (common:get-disks #!key (configf #f))
   (hash-table-ref/default