@@ -235,11 +235,11 @@
 ;; if there is a submegatest create a button to launch dashboard in that area
 ;;
 (define (submegatest-panel dbstruct keydat testdat runname testconfig)
   (let* ((subarea (configf:lookup testconfig "setup" "submegatest"))
 	 (area-exists (and subarea (file-exists? subarea))))
-    ;; (debug:print-info 0 "Megatest subarea=" subarea ", area-exists=" area-exists)
+    ;; (debug:print-info 0 #f "Megatest subarea=" subarea ", area-exists=" area-exists)
     (if subarea
 	(iup:frame 
 	 #:title "Megatest Run Info" ; #:expand "YES"
 	 (iup:button
 	  "Launch Dashboard"
@@ -424,11 +424,11 @@
 	 (db-mod-time   0) ;; (file-modification-time db-path))
 	 (last-update   0) ;; (current-seconds))
 	 (request-update #t))
     (if (not testdat)
 	(begin
-	  (debug:print 2 "ERROR: No test data found for test " test-id ", exiting")
+	  (debug:print 2 #f "ERROR: No test data found for test " test-id ", exiting")
 	  (exit 1))
 	(let* (;; (run-id        (if testdat (db:test-get-run_id testdat) #f))
 	       (test-registry (tests:get-all))
 	       (keydat        (if testdat (rmt:get-key-val-pairs run-id) #f))
 	       (rundat        (if testdat (rmt:get-run-info run-id) #f))
@@ -511,22 +511,22 @@
 						       request-update))
 				    (newtestdat (if need-update 
 						    ;; NOTE: BUG HIDER, try to eliminate this exception handler
 						    (handle-exceptions
 						     exn 
-						     (debug:print-info 0 "test db access issue in examine test for run-id " run-id ", test-id " test-id ": " ((condition-property-accessor 'exn 'message) exn))
+						     (debug:print-info 0 #f "test db access issue in examine test for run-id " run-id ", test-id " test-id ": " ((condition-property-accessor 'exn 'message) exn))
 						     (rmt:get-test-info-by-id run-id test-id )))))
-			       ;; (debug:print-info 0 "need-update= " need-update " curr-mod-time = " curr-mod-time)
+			       ;; (debug:print-info 0 #f "need-update= " need-update " curr-mod-time = " curr-mod-time)
 			       (cond
 				((and need-update newtestdat)
 				 (set! testdat newtestdat)
 				 (set! teststeps    (tests:get-compressed-steps run-id test-id))
 				 (set! logfile      (conc (db:test-get-rundir testdat) "/" (db:test-get-final_logf testdat)))
 				 (set! rundir       ;; (filedb:get-path *fdb* 
 				       (db:test-get-rundir testdat)) ;; )
 				 (set! testfullname (db:test-get-fullname testdat))
-				 ;; (debug:print 0 "INFO: teststeps=" (intersperse teststeps "\n    "))
+				 ;; (debug:print 0 #f "INFO: teststeps=" (intersperse teststeps "\n    "))
 				 
 				 ;; I don't see why this was implemented this way. Please comment it ...
 				 ;; (if (eq? curr-mod-time db-mod-time) ;; do only once if same
 				 ;;     (set! db-mod-time (+ curr-mod-time 1))
 				 ;;     (set! db-mod-time curr-mod-time))
@@ -579,11 +579,11 @@
 	       (command-proc (lambda (command-text-box)
 			       (let* ((cmd     (iup:attribute command-text-box "VALUE"))
 				      (fullcmd (conc (dtests:get-pre-command)
 						     cmd 
 						     (dtests:get-post-command))))
-				 (debug:print-info 02 "Running command: " fullcmd)
+				 (debug:print-info 02 #f "Running command: " fullcmd)
 				 (common:without-vars fullcmd "MT_.*"))))
 	       (command-text-box (iup:textbox
 				  #:expand "HORIZONTAL"
 				  #:font "Courier New, -10"
 				  #:action (lambda (obj cnum val)
@@ -596,11 +596,11 @@
 	;; (lambda (x)
 	;; 								(let* ((cmd     (iup:attribute command-text-box "VALUE"))
 	;; 								       (fullcmd (conc (dtests:get-pre-command)
 	;; 										      cmd 
 	;; 										      (dtests:get-post-command))))
-	;; 								  (debug:print-info 02 "Running command: " fullcmd)
+	;; 								  (debug:print-info 02 #f "Running command: " fullcmd)
 	;; 								  (common:without-vars fullcmd "MT_.*")))))
 	       (kill-jobs (lambda (x)
 			    (iup:attribute-set! 
 			     command-text-box "VALUE"
 			     (conc "megatest -target " keystring " -runname "  runname