Index: tests/unittests/server.scm
==================================================================
--- tests/unittests/server.scm
+++ tests/unittests/server.scm
@@ -64,15 +64,15 @@
 			      6))
 
 (thread-sleep! 2)
 (test #f #t (rmt:general-open-connection *remotedat* *toppath* ".db/2.db"))
 
-(exit)
 
 (test #f '("SYSTEM" "RELEASE") (rmt:get-keys))
 (test #f 1 (rmt:send-receive 'register-run #f (list keyvals "run1" "new" "n/a" "justme" #f)))
 (print "Got here.")
+(exit)
 
 (test #f 1 (rmt:send-receive 'register-run 1 (list keyvals "run1" "new" "n/a" "justme" #f)))
 
 (test #f 2 (rmt:register-run keyvals "run2" "new" "n/a" "justme" #f))
 ;; (test #f 2 (rmt:deregister-server *remotedat* *toppath* iface port server-key dbname