@@ -733,16 +733,17 @@
 ;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
 ;;   we start the server if not running else start the client thread
 ;;======================================================================
 
 (if (args:get-arg "-server")
-    
+
     ;; Server? Start up here.
     ;;
     (let* ((tl        (launch:setup))
            (run-id    (and (args:get-arg "-run-id")
                            (string->number (args:get-arg "-run-id")))))
+      (BB> "megatest -server called; starting server")
       (if run-id
           (begin
 	    (server:launch run-id (->string *transport-type*))
 	    (set! *didsomething* #t))
 	  (debug:print-error 0 *default-log-port* "server requires run-id be specified with -run-id")))