Index: tests/unittests/basicserver.scm
==================================================================
--- tests/unittests/basicserver.scm
+++ tests/unittests/basicserver.scm
@@ -27,26 +27,26 @@
 
 (trace-call-sites #t)
 (trace
  ;; db:get-dbdat
  ;; rmt:find-main-server
- rmt:send-receive-real
- rmt:send-receive
+;;  rmt:send-receive-real
+;;  rmt:send-receive
  ;; sexpr->string
  ;; server-ready?
  ;; rmt:register-server
  ;; rmt:open-main-connection
- rmt:general-open-connection
+ ;; rmt:general-open-connection
  ;; rmt:get-conny
  ;; common:watchdog
  ;; rmt:find-main-server
  ;; get-all-server-pkts
  ;; get-viable-servers
  ;; get-best-candidate
- api:run-server-process
- rmt:run
- rmt:try-start-server
+ ;; api:run-server-process
+ ;; rmt:run
+ ;; rmt:try-start-server
  )
 
 (test #f #t (rmt:remote? (let ((r (make-rmt:remote)))
 			   (set! *rmt:remote* r)
 			   r)))
@@ -56,15 +56,15 @@
 (pp (hash-table->alist (rmt:remote-conns *rmt:remote*)))
 (test #f #t (rmt:conn? (rmt:get-conn *rmt:remote* *toppath* ".db/main.db")))
 
 (define *main*  (rmt:get-conn *rmt:remote* *toppath* ".db/main.db"))
 
-(for-each (lambda (tdat)
-	    (test #f tdat (loop-test (rmt:conn-ipaddr *main*)
-				     (rmt:conn-port *main*) tdat)))
-	  (list 'a
-		'(a "b" 123 1.23 )))
+;; (for-each (lambda (tdat)
+;; 	    (test #f tdat (loop-test (rmt:conn-ipaddr *main*)
+;; 				     (rmt:conn-port *main*) tdat)))
+;; 	  (list 'a
+;; 		'(a "b" 123 1.23 )))
 (test #f #t (number? (rmt:send-receive 'ping #f 'hello)))
 
 (define *db* (db:setup #f))
 
 ;; these let me cut and paste from source easily