Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -111,10 +111,19 @@
     ((fs)   result)
     (else 
      (debug:print-error 0 *default-log-port* "unrecognised transport type: " *transport-type*)
      result)))
 
+(define (server:what-type-of-invocation)
+  (cond
+   ((args:get-arg "-run")       "run")
+   ((args:get-arg "-server")    "server")
+   ((args:get-arg "-execute")   "execute")
+   ((or (args:get-arg "-remove-runs")) "run-related")
+   ((string-search (car (argv)) "dboard") "dboard")
+   (else (conc "other:"(string-intersperse (command-line-arguments) "_")))))
+
 ;; Given an area path,  start a server process    ### NOTE ### > file 2>&1 
 ;; if the target-host is set 
 ;; try running on that host
 ;;   incidental: rotate logs in logs/ dir.
 ;;
@@ -133,11 +142,11 @@
 	 (cmdln (conc (common:get-megatest-exe)
 		      " -server " (or target-host "-") (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
 							   " -daemonize "
 							   "")
 		      ;; " -log " logfile
-		      " -m testsuite:" testsuite
+		      " -m testsuite:"testsuite":"(server:what-type-of-invocation)
 		      " " profile-mode
 		      )) ;; (conc " >> " logfile " 2>&1 &")))))
 	 (log-rotate  (make-thread common:rotate-logs  "server run, rotate logs thread")) ;; why are we rotating logs here? This is a sensitive location with a lot going on!?
          (load-limit  (configf:lookup-number *configdat* "jobtools" "max-server-start-load" default: 3.0)))
     ;; we want the remote server to start in *toppath* so push there