Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1289,11 +1289,11 @@
 ;; ;; ;; redo me        (db:close-all dbstruct)
 ;; ;; ;; redo me        (list "uname" "rundir" "final_logf" "comment"))
 ;; ;; ;; redo me       (set! *didsomething* #t)))
 
 (if (args:get-arg "-import-megatest.db")
-    (let* ((toppath  (setup-for-run))
+    (let* ((toppath  (launch:setup-for-run))
 	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
 	   (mtdb     (if toppath (db:open-megatest-db)))
 	   (run-ids  (if toppath (db:get-all-run-ids mtdb))))
       ;; sync runs, test_meta etc.
       (db:sync-tables (db:sync-main-list mtdb) mtdb (db:get-db dbstruct #f))