Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -63,11 +63,11 @@
   #;(common:telemetry-log (conc "rmt:"(->string cmd))
                         payload: `((rid . ,rid)
                                    (params . ,params)))
                           
   (if (> attemptnum 2)
-      (debug:print 0 "INFO: attemptnum in rmt:send-receive is " attemptnum))
+      (debug:print *default-log-port* 0 "INFO: attemptnum in rmt:send-receive is " attemptnum))
     
   (cond
    ((> attemptnum 2) (thread-sleep! 0.05))
    ((> attemptnum 10) (thread-sleep! 0.5))
    ((> attemptnum 20) (thread-sleep! 1)))