Index: tests/unittests/server.scm
==================================================================
--- tests/unittests/server.scm
+++ tests/unittests/server.scm
@@ -30,10 +30,17 @@
 	      test-id))
 (define test-one-rec #f)
 (test #f "test-one" (let ((test-rec (rmt:get-test-info-by-id run-id test-one-id)))
 		      (set! test-one-rec test-rec)
 		      (vector-ref test-rec 2)))
+
+(use trace)
+(import trace)
+(trace
+ rmt:send-receive
+ rmt:open-qry-close-locally
+)
 
 ;; Tests to assess reading/writing while servers are starting/stopping
 (define start-time (current-seconds))
 (let loop ((test-state 'start))
   (let* ((server-dats (tasks:get-server-records (db:delay-if-busy (tasks:open-db)) run-id))