@@ -625,11 +625,11 @@
 			 (if (< nextmintime (current-milliseconds))
 			     (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 #f "CHANGE(S): " (car changes) "..."))
+			       (debug:print 11 *default-log-port* "CHANGE(S): " (car changes) "..."))
 			     (debug:print-info 11 #f "Server overloaded"))))))
 
 (dboard:data-set-updaters! *data* (make-hash-table))
 (newdashboard *dbstruct-local*)    
 (iup:main-loop)