Index: common_records.scm
==================================================================
--- common_records.scm
+++ common_records.scm
@@ -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!!"))))
 
 ;;======================================================================
 ;;
 ;;======================================================================
 

Index: megamod.scm
==================================================================
--- megamod.scm
+++ megamod.scm
@@ -150,10 +150,11 @@
 
 ;; globals
 (define *writes-total-delay* 0)
 (define *exit-started* #f)
 (define *last-monitor-update-time* 0)
+(define *default-log-port* (current-error-port))
 
 ;; The watchdog is to keep an eye on things like db sync etc.
 ;;
 
 ;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -71,10 +71,11 @@
 ;; (declare (uses diff-report))
 ;; (declare (uses ftail))
 ;; (import ftail)
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
+(define *default-log-port* (current-error-port))
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "run_records.scm")