@@ -12,11 +12,11 @@
 (import (prefix rpc rpc:))
 
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest)
 (import (prefix sqlite3 sqlite3:))
 
-(declare (unit server))
+(declare (unit rpc-transport))
 
 (declare (uses common))
 (declare (uses db))
 (declare (uses tests))
 (declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
@@ -190,11 +190,11 @@
     ;; (debug:print 0 "Server started on port " (rpc:default-server-port) "...")
     ;; (thread-start! th2)
     ;; (thread-join!  th2)
     ;; return th2 for the calling process to do a join with 
     th1
-    )))) ;; rpc:server)))
+    )) ;; rpc:server)))
 
 (define (rpc-transport:keep-running db host:port)
   ;; if none running or if > 20 seconds since 
   ;; server last used then start shutdown
     (let loop ((count 0))