@@ -626,10 +626,10 @@
 			     (let* ((starttime (current-milliseconds))
 				    (changes   (dcommon:run-update keys data runname keypatts testpatt states statuses 'full my-window-id))
 				    (endtime   (current-milliseconds)))
 			       (set! nextmintime (+ endtime (* 2 (- endtime starttime))))
 			       (debug:print 11 *default-log-port* "CHANGE(S): " (car changes) "..."))
-			     (debug:print-info 11 #f "Server overloaded"))))))
+			     (debug:print-info 11 *default-log-port* "Server overloaded"))))))
 
 (dboard:data-set-updaters! *data* (make-hash-table))
 (newdashboard *dbstruct-local*)    
 (iup:main-loop)