Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -15,10 +15,14 @@
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 ;;======================================================================
+
+(declare (uses debugprint))
+
+(import debugprint)
 
 (use format)
 
 (require-library iup)
 (import (prefix iup iup:))

Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -17,11 +17,11 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
 
 (declare (unit dbfile))
-;; (declare (uses debugprint))
+(declare (uses debugprint))
 (declare (uses commonmod))
 
 (module dbfile
 	*
 	
@@ -39,11 +39,11 @@
 	ports
 
 	commonmod
 	)
 
-;; (import debugprint)
+(import debugprint)
 
 ;;======================================================================
 ;;  R E C O R D S
 ;;======================================================================
 
@@ -322,14 +322,15 @@
     (lambda ()
       (apply print params)))
   (exit 1))
     
 (define (dbfile:print-err . params)
-  (with-output-to-port
-      (current-error-port)
-    (lambda ()
-      (apply print params))))
+  (apply debug:print 0 *default-log-port* params))
+;;   (with-output-to-port
+;;       (current-error-port)
+;;     (lambda ()
+;;       (apply print params))))
 
 (define (dbfile:cautious-open-database fname init-proc sync-mode journal-mode #!optional (tries-left 500))
   (let* ((busy-file  (conc fname "-journal"))
 	 (delay-time (* (- 51 tries-left) 1.1))
       	 (write-access (file-write-access? fname))

Index: debugprint.scm
==================================================================
--- debugprint.scm
+++ debugprint.scm
@@ -1,5 +1,26 @@
+;;======================================================================
+;; Copyright 2017, Matthew Welland.
+;; 
+;; This file is part of Megatest.
+;; 
+;;     Megatest is free software: you can redistribute it and/or modify
+;;     it under the terms of the GNU General Public License as published by
+;;     the Free Software Foundation, either version 3 of the License, or
+;;     (at your option) any later version.
+;; 
+;;     Megatest is distributed in the hope that it will be useful,
+;;     but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;     GNU General Public License for more details.
+;; 
+;;     You should have received a copy of the GNU General Public License
+;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
+
+;;======================================================================
+
+(use srfi-69)
 
 (declare (unit debugprint))
 (declare (uses mtargs))
 
 (module debugprint
@@ -23,10 +44,11 @@
     ;; chicken.process-context
     ;; chicken.process-context.posix
     
     (prefix mtargs args:)
     srfi-1
+    srfi-69
     ;; system-information
     )
   
 ;;======================================================================
 ;; debug stuff

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -45,14 +45,14 @@
 (declare (uses db))
 (declare (uses dbmod))
 (declare (uses dbmod.import))
 (declare (uses commonmod))
 (declare (uses commonmod.import))
+(declare (uses debugprint))
+(declare (uses debugprint.import))
 (declare (uses dbfile))
 (declare (uses dbfile.import))
-;; (declare (uses debugprint))
-;; (declare (uses debugprint.import))
 ;; (declare (uses mtargs))
 ;; (declare (uses mtargs.import))
 
 ;; (declare (uses ftail))
 ;; (import ftail)

Index: mtargs.scm
==================================================================
--- mtargs.scm
+++ mtargs.scm
@@ -17,7 +17,7 @@
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;======================================================================
 
 (declare (unit mtargs))
-
+(use srfi-69)
 (include "mtargs/mtargs.scm")

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -118,10 +118,11 @@
             (if server-info
 		(begin
 			(remote-server-url-set! *runremote* (server:record->url server-info))
 			(remote-server-id-set! *runremote* (server:record->id server-info)))))  
 	  (set! runremote   *runremote*))) ;; new runremote will come from this on next iteration
+    
     
     ;; DOT SET_HOMEHOST; // leaving off - doesn't really add to the clarity
     ;; DOT MUTEXLOCK -> SET_HOMEHOST [label="no homehost?"];
     ;; DOT SET_HOMEHOST -> MUTEXLOCK;
     ;; ensure we have a homehost record