Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -249,19 +249,21 @@
 	 (string-split patts ","))
 	res)
       #t))
 
 ;; (map print (map car (hash-table->alist (read-config "runconfigs.config" #f #t))))
-(define (common:get-runconfig-targets)
+(define (common:get-runconfig-targets #!key (configf #f))
   (sort (map car (hash-table->alist
-		  (read-config "runconfigs.config"
-			       #f #t))) string<?))
+		  (or configf
+		      (read-config "runconfigs.config"
+			       #f #t))))
+	string<?))
 
 ;; '(print (string-intersperse (map cadr (hash-table-ref/default (read-config "megatest.config" \#f \#t) "disks" '"'"'("none" ""))) "\n"))'
-(define (common:get-disks)
+(define (common:get-disks #!key (configf #f))
   (hash-table-ref/default 
-   (read-config "megatest.config" #f #t)
+   (or configf (read-config "megatest.config" #f #t))
    "disks" '("none" "")))
 
 ;;======================================================================
 ;; T A R G E T S
 ;;======================================================================

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -366,18 +366,18 @@
     (begin
       (save-environment-as-files (args:get-arg "-env2file"))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-list-disks")
-    (begin
+    (let ((toppath (launch:setup-for-run)))
       (print 
        (string-intersperse 
 	(map (lambda (x)
 	       (string-intersperse 
 		x
 		" => "))
-	     (common:get-disks) )
+	     (common:get-disks *configdat*))
 	"\n"))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-refdb2dat")
     (let* ((input-db (args:get-arg "-refdb2dat"))