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