@@ -81,24 +81,23 @@
 	    (not (getenv "MT_DEBUG_MODE")))
 	(setenv "MT_DEBUG_MODE" (if (list? *verbosity*)
 				    (string-intersperse (map conc *verbosity*) ",")
 				    (conc *verbosity*))))))
   
-
-(define (debug:print n . params)
+(define (debug:print n e . params)
   (if (debug:debug-mode n)
-      (with-output-to-port (current-error-port)
+      (with-output-to-port (or e (current-error-port))
 	(lambda ()
 	  (if *logging*
 	      (db:log-event (apply conc params))
 	      ;; (apply print "pid:" (current-process-id) " " params)
 	      (apply print params)
 	      )))))
 
-(define (debug:print-info n . params)
+(define (debug:print-info n e . params)
   (if (debug:debug-mode n)
-      (with-output-to-port (current-error-port)
+      (with-output-to-port (or e (current-error-port))
 	(lambda ()
 	  (if *logging*
 	      (let ((res (format#format #f "INFO: (~a) ~a" n (apply conc params))))
 		(db:log-event res))
 	      ;; (apply print "pid:" (current-process-id) " " "INFO: (" n ") " params) ;; res)