@@ -20,11 +20,10 @@
 
 ;; (use trace)
 (use typed-records)
 
 ;; globals - modules that include this need these here
-(define *default-log-port* (current-error-port))
 (define *logging* #f)
 (define *functions* (make-hash-table)) ;; symbol => fn ### TEMPORARY!!!
 ;; (define *toppath* #f)
 (define *transport-type* 'http)
 
@@ -64,11 +63,11 @@
 (define (http-transport:server-dat-update-last-access vec)
   (if (vector? vec)
       (vector-set! vec 5 (current-seconds))
       (begin
 	(print-call-chain (current-error-port))
-	(debug:print-error 0 *default-log-port* "call to http-transport:server-dat-update-last-access with non-vector!!"))))
+	(debug:print-error 0 (current-error-port) "call to http-transport:server-dat-update-last-access with non-vector!!"))))
 
 ;;======================================================================
 ;;
 ;;======================================================================