Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -330,12 +330,14 @@
 	 ;;
 	 (if (not *time-to-exit*)
 	     (let delay-loop ((count 0))
 	       (if (and (not *time-to-exit*)
 			(< count 11)) ;; aprox 5-6 seconds
-		   (delay-loop (+ count 1))))
-	     (loop)))))
+		   (begin
+		     (thread-sleep! 1)
+		     (delay-loop (+ count 1))))
+	       (loop))))))
    "Watchdog thread"))
 
 (thread-start! *watchdog*)
 
 (if (args:get-arg "-log")