@@ -1645,11 +1645,12 @@
 				    (this-run (current-seconds)))
 			   (if (file-exists? "do-not-run-mtutil-go")
 			       (exit))
 			   (let ((delta (- this-run last-run)))
 			     (if (>= delta period)
-				 (begin
+				 (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
+					(mtconf    (car mtconfdat)))
 				   (print "Running import at " (current-seconds))
 				   (common:load-pkts-to-db mtconf)
 				   (print "Running generate run pkts at " (current-seconds))
 				   (generate-run-pkts mtconf toppath)
 				   (print "Running run dispatch at " (current-seconds))