@@ -58,11 +58,11 @@
        ;; (release-dot-lock fname)
        (debug:print 0 "ERROR: portlogger:open-run-close failed. " proc " " params)
        (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
        (debug:print 0 "exn=" (condition->list exn))
        (if (file-exists? fname)(delete-file fname)) ;; brutally get rid of it
-       (print-call-chain))
+       (print-call-chain (current-error-port)))
      (let* (;; (lock   (obtain-dot-lock fname 2 9 10))
 	    (db     (portlogger:open-db fname))
 	    (res    (apply proc db params)))
        (sqlite3:finalize! db)
        ;; (release-dot-lock fname)
@@ -104,11 +104,11 @@
    exn
    (begin
      (debug:print 0 "EXCEPTION: portlogger database probably overloaded or unreadable. If you see this message again remove /tmp/.$USER-portlogger.db")
      (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
      (debug:print 0 "exn=" (condition->list exn))
-     (print-call-chain)
+     (print-call-chain (current-error-port))
      (debug:print 0 "Continuing anyway.")
      #f)
    (sqlite3:fold-row
     (lambda (var curr)
       (or curr var curr))
@@ -129,11 +129,11 @@
      exn
      (begin
        (debug:print 0 "EXCEPTION: portlogger database probably overloaded or unreadable. If you see this message again remove /tmp/.$USER-portlogger.db")
        (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
        (debug:print 0 "exn=" (condition->list exn))
-       (print-call-chain)
+       (print-call-chain (current-error-port))
        (debug:print 0 "Continuing anyway."))
      (portlogger:take-port db portnum))
     portnum))
 
 ;; set port to "released", "failed" etc.
@@ -160,11 +160,11 @@
 	   (begin
 	     (debug:print 0 "EXCEPTION: portlogger database at " dbfname " probably overloaded or unreadable. Try removing it.")
 	     (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
 	     (print "exn=" (condition->list exn))
 	     (debug:print 0 " status:  " ((condition-property-accessor 'sqlite3 'status) exn))
-	     (print-call-chain))
+	     (print-call-chain (current-error-port)))
 	   (cond
 	    ((> numargs 1) ;; most commands
 	     (case (string->symbol (car args)) ;; commands with two or more params
 	       ((take)(portlogger:take-port db (string->number (cadr args))))
 	       ((set) (portlogger:set-port db