@@ -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"))