@@ -45,11 +45,11 @@
 ;;
 ;; Moved these tables into <runid>.db
 ;; THIS CODE TO BE REMOVED
 ;;
 (define (open-test-db work-area) 
-  (debug:print-info 11 #f "open-test-db " work-area)
+  (debug:print-info 11 *default-log-port* "open-test-db " work-area)
   (if (and work-area 
 	   (directory? work-area)
 	   (file-read-access? work-area))
       (let* ((dbpath              (conc work-area "/testdat.db"))
 	     (dbexists            (file-exists? dbpath))
@@ -76,14 +76,14 @@
 		 *db-write-access*)
 	    (sqlite3:set-busy-handler! db handler))
 	(if (not dbexists)
 	    (begin
 	      (db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = FULL;")
-	      (debug:print-info 11 #f "Initialized test database " dbpath)
+	      (debug:print-info 11 *default-log-port* "Initialized test database " dbpath)
 	      (tdb:testdb-initialize db)))
 	;; (sqlite3:execute db "PRAGMA synchronous = 0;")
-	(debug:print-info 11 #f "open-test-db END (sucessful)" work-area)
+	(debug:print-info 11 *default-log-port* "open-test-db END (sucessful)" work-area)
 	;; now let's test that everything is correct
 	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain (current-error-port))
@@ -95,11 +95,11 @@
 	 ;; and raise an exception ?
 	 (sqlite3:execute db "SELECT id FROM test_data LIMIT 1;"))
 	db)
       ;; no work-area or not readable - create a placeholder to fake rest of world out
       (let ((baddb (sqlite3:open-database ":memory:")))
- 	(debug:print-info 11 #f "open-test-db END (unsucessful)" work-area)
+ 	(debug:print-info 11 *default-log-port* "open-test-db END (unsucessful)" work-area)
  	;; provide an in-mem db (this is dangerous!)
  	(tdb:testdb-initialize baddb)
  	baddb)))
 
 ;; find and open the testdat.db file for an existing test