@@ -339,11 +339,13 @@
     ;;
     (let ((tl        (setup-for-run))
 	  (run-id    (and (args:get-arg "-run-id")
 			  (string->number (args:get-arg "-run-id")))))
       (if run-id
-	  (server:launch run-id)
+	  (begin
+	    (server:launch run-id)
+	    (set! *didsomething* #t))
 	  (debug:print 0 "ERROR: server requires run-id be specified with -run-id")))
 
     ;; Not a server? This section will decide how to communicate
     ;;
     ;;  Setup client for all expect listed here