Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -2237,16 +2237,16 @@
     (let ((toppath (launch:setup)))
       (tasks:sync-to-postgres *configdat* (args:get-arg "-sync-to"))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-list-test-time")
-     (begin 
+     (let* ((toppath (launch:setup))) 
      (task:get-test-times)  
      (set! *didsomething* #t)))
 
 (if (args:get-arg "-list-run-time")
-     (begin 
+     (let* ((toppath (launch:setup))) 
      (task:get-run-times)  
      (set! *didsomething* #t)))
      
 (if (args:get-arg "-generate-html")
     (let* ((toppath (launch:setup)))