@@ -186,11 +186,11 @@
 			     ))
 	 (runid-to-col    (hash-table-ref *cachedata* "runid-to-col"))
 	 (testname-to-row (hash-table-ref *cachedata* "testname-to-row")) 
 	 (colnum       1)
 	 (rownum       0)) ;; rownum = 0 is the header
-;; (debug:print 0 #f "test-ids " test-ids ", tests-detail-changes " tests-detail-changes)
+;; (debug:print 0 *default-log-port* "test-ids " test-ids ", tests-detail-changes " tests-detail-changes)
     
 	 ;; tests related stuff
 	 ;; (all-testnames (delete-duplicates (map db:test-get-testname test-changes))))
 
     ;; Given a run-id and testname/item_path calculate a cell R:C
@@ -262,11 +262,11 @@
 				(tree:add-node (dboard:data-get-tests-tree *data*) "Runs" 
 					       test-path
 					       userdata: (conc "test-id: " test-id))
 				(let ((node-num (tree:find-node tb (cons "Runs" test-path)))
 				      (color    (car (gutils:get-color-for-state-status state status))))
-				  (debug:print 0 #f "node-num: " node-num ", color: " color)
+				  (debug:print 0 *default-log-port* "node-num: " node-num ", color: " color)
 				  (iup:attribute-set! tb (conc "COLOR" node-num) color))
 				(hash-table-set! (dboard:data-get-path-test-ids *data*) test-path test-id)
 				(if (not rownum)
 				    (let ((rownums (hash-table-values testname-to-row)))
 				      (set! rownum (if (null? rownums)
@@ -276,11 +276,11 @@
 				      ;; create the label
 				      (iup:attribute-set! (dboard:data-get-runs-matrix *data*)
 							  (conc rownum ":" 0) dispname)
 				      ))
 				;; set the cell text and color
-				;; (debug:print 2 #f "rownum:colnum=" rownum ":" colnum ", state=" status)
+				;; (debug:print 2 *default-log-port* "rownum:colnum=" rownum ":" colnum ", state=" status)
 				(iup:attribute-set! (dboard:data-get-runs-matrix *data*)
 						    (conc rownum ":" colnum)
 						    (if (member state '("ARCHIVED" "COMPLETED"))
 							status
 							state))
@@ -293,12 +293,12 @@
 
     (let ((updater (hash-table-ref/default  (dboard:data-get-updaters *data*) window-id #f)))
       (if updater (updater (hash-table-ref/default data get-details-sig #f))))
 
     (iup:attribute-set! (dboard:data-get-runs-matrix *data*) "REDRAW" "ALL")
-    ;; (debug:print 2 #f "run-changes: " run-changes)
-    ;; (debug:print 2 #f "test-changes: " test-changes)
+    ;; (debug:print 2 *default-log-port* "run-changes: " run-changes)
+    ;; (debug:print 2 *default-log-port* "test-changes: " test-changes)
     (list run-changes all-test-changes)))
 
 ;;======================================================================
 ;; TESTS DATA
 ;;======================================================================
@@ -685,12 +685,12 @@
      (lambda (waiton)
        (let* ((waiton-box-info (hash-table-ref/default tests-hash waiton #f))
 	      (waiton-center   (dcommon:get-box-center (or waiton-box-info test-box-info))))
 	 (dcommon:draw-arrow cnv test-box-center waiton-center)))
      waitons)
-    ;; (debug:print 0 #f "test-box-info=" test-box-info)
-    ;; (debug:print 0 #f "test-record=" test-record)
+    ;; (debug:print 0 *default-log-port* "test-box-info=" test-box-info)
+    ;; (debug:print 0 *default-log-port* "test-record=" test-record)
     ))
 
 (define (dcommon:estimate-scale sizex sizey originx originy nodes)
   ;; (print "sizex: " sizex " sizey: " sizey " originx: " originx " originy: " originy " nodes: " nodes)
   (let* ((maxx 1)