Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -221,11 +221,11 @@
   (let* ((conn (tt:client-connect-to-server ttdat dbfname run-id testsuite))) ;; (hash-table-ref/default (tt-conns ttdat) dbfname #f)))
     (if conn
 	;; have connection, call the server
 	(let* ((res (tt:send-receive ttdat conn cmd run-id params)))
 	  ;; res is (status errmsg result meta)
-          (debug:print 0 *default-log-port* "conn:" conn " res: " res)
+         ; (debug:print 0 *default-log-port* "conn:" conn " res: " res)
 	  (match res
 	    ((status errmsg result meta)
 	     (if (list? meta)
 		 (let* ((delay-wait (alist-ref 'delay-wait meta)))
 		   (if (and (number? delay-wait)