@@ -56,12 +56,12 @@
 
 (define (debug:print-info n . params)
   (if (debug:debug-mode n)
       (with-output-to-port (current-error-port)
 	(lambda ()
-	  (let ((res (format#format #f "INFO:~2d ~a" n (apply conc params))))
-	    (print res)
+	  (let ((res #f));; (format#format #f "INFO:~2d ~a" n (apply conc params))))
+	    (apply print "INFO: (" n ") " params) ;; res)
 	    (if *logging* (db:log-event res)))))))
 
 ;; if a value is printable (i.e. string or number) return the value
 ;; else return an empty string
 (define-inline (printable val)