Megatest

			       (delete-file* "do-not-run-mtutil-go")))
			 (let loop ((last-run (- (current-seconds) (+ period 10))) ;; fake out first time in 
				    (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))
				   (common:load-pkts-to-db mtconf)
				   (dispatch-commands mtconf toppath)