Index: common_records.scm
==================================================================
--- common_records.scm
+++ common_records.scm
@@ -190,11 +190,11 @@
     [(_ x y ...) (begin (inspect x) (inspect y ...))]))
 
 (define (debug:print-error n e . params)
   ;; normal print
   (if (debug:debug-mode n)
-      (with-output-to-port (or e (current-error-port))
+      (with-output-to-port (if (port? e) e (current-error-port))
 	(lambda ()
 	  (if *logging*
 	      (db:log-event (apply conc params))
 	      ;; (apply print "pid:" (current-process-id) " " params)
 	      (apply print "ERROR: " params)
@@ -206,19 +206,21 @@
 	  (apply print "ERROR: " params)
 	  ))))
 
 (define (debug:print-info n e . params)
   (if (debug:debug-mode n)
-      (with-output-to-port (or e (current-error-port))
+      (with-output-to-port (if (port? e) 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)
 	      (apply print "INFO: (" n ") " params) ;; res)
 	      )))))
+
+
 
 ;; if a value is printable (i.e. string or number) return the value
 ;; else return an empty string
 (define-inline (printable val)
   (if (or (number? val)(string? val)) val ""))