Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -2308,10 +2308,14 @@
     (begin
       (if (not (launch:setup))
 	  (begin
 	    (debug:print 0 *default-log-port* "Failed to setup, exiting") 
 	    (exit 1)))
+      (if (not (server:choose-server *toppath* 'home?))
+	  (begin
+	    (debug:print 0 *default-log-port* "Servers are not running on this host or no servers alive. Cannot run cleanup-db")
+	    (exit 1)))
       (let ((dbstructs (db:setup #f)))
         (common:cleanup-db dbstructs))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-mark-incompletes")