@@ -51,21 +51,21 @@
   (if (debug:debug-mode n)
       (with-output-to-port (current-error-port)
 	(lambda ()
 	  (if *logging*
 	      (db:log-event (apply conc params))
-	      (apply print params)
+	      (apply print "pid:" (current-process-id) " " params)
 	      )))))
 
 (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))))
 	    (if *logging*
 		(db:log-event res)
-		(apply print "INFO: (" n ") " params) ;; res)
+		(apply print "pid:" (current-process-id) " " "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)