@@ -106,10 +106,11 @@
 	  (set! *rpc:listener* rpc:listener)
 	  (on-exit (lambda ()
 		     (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
 		     (sqlite3:finalize! db)))
 	  (thread-start! th1)
+	  (debug:print 0 "Server started...")
 	  (thread-start! th2)
 	  ;; (thread-join!  th2)
 	  ;; return th2 for the calling process to do a join with 
 	  th2
 	  )))) ;; rpc:server)))