Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -97,10 +97,13 @@
 			"-q"
 			"-use-db-cache"
 			"-skip-version-check"
 			"-repl"
                         "-rh5.11" ;; fix to allow running on rh5.11
+
+			;; placeholder
+			;; "-:p"
 			)
 		 args:arg-hash
 		 0))
 
 ;; check for MT_* environment variables and exit if found

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -19,11 +19,12 @@
 ;;======================================================================
 ;; launch a task - this runs on the originating host, tests themselves
 ;;
 ;;======================================================================
 
-(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix-extras z3 call-with-environment-variables csv)
+(use regex regex-case base64 sqlite3 srfi-18 directory-utils posix-extras z3
+     call-with-environment-variables csv)
 (use typed-records pathname-expand matchable)
 
 (import (prefix base64 base64:))
 (import (prefix sqlite3 sqlite3:))
 
@@ -1610,11 +1611,14 @@
 	   (fullcmd    #f) ;; (define a (with-output-to-string (lambda ()(write x))))
 	   (mt-bindir-path #f)
 	   (testinfo   (rmt:get-test-info-by-id run-id test-id))
 	   (mt_target  (string-intersperse (map cadr keyvals) "/"))
 	   (debug-param (append (if (args:get-arg "-debug")  (list "-debug" (args:get-arg "-debug")) '())
-				(if (args:get-arg "-logging")(list "-logging") '()))))
+				(if (args:get-arg "-logging")(list "-logging") '())
+				(if (configf:lookup *configdat* "misc" "profilesw")
+				    (list (configf:lookup *configdat* "misc" "profilesw"))
+				    '()))))
       ;; (if hosts (set! hosts (string-split hosts)))
       ;; set the megatest to be called on the remote host
       (if (not remote-megatest)(set! remote-megatest local-megatest)) ;; "megatest"))
       (set! mt-bindir-path (pathname-directory remote-megatest))
       (if launcher (set! launcher (string-split launcher)))
@@ -1752,11 +1756,12 @@
 	      ))
 	(alist->env-vars miscprevvals)
 	(alist->env-vars testprevvals)
 	(alist->env-vars commonprevvals)
 	launch-results))
-    (change-directory *toppath*)))
+    (change-directory *toppath*)
+    (thread-sleep! (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.0))))
 
 ;; recover a test where the top controlling mtest may have died
 ;;
 (define (launch:recover-test run-id test-id)
   ;; this function is called on the test run host via ssh

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -443,10 +443,14 @@
 			"-logging"
 			"-v" ;; verbose 2, more than normal (normal is 1)
 			"-q" ;; quiet 0, errors/warnings only
 
                         "-diff-rep"
+
+			;; junk placeholder
+			;; "-:p"
+			
                         )
 		 args:arg-hash
 		 0))
 
 ;; Add args that use remargs here

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -517,13 +517,14 @@
 		       ;; time the and condition above is true (which
 		       ;; seems like always)?
         	  ((> (runs:dat-can-run-more-tests-count runsdat) 20) ;; original intent was - save cycles, wait a long time
 		   (if (runs:lownoise "waiting on tasks" 60)(debug:print-info 2 *default-log-port* "waiting for tasks to complete, sleeping briefly ..."))
 		   10)  ;; obviously haven't had any work to do for a while
-		  (else
-		   ;; if have a number for inter-test-delay, use it, else don't delay much, maybe even zero?
-		   (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.01))))
+		  (else 0)))
+;;		   ;; if have a number for inter-test-delay, use it, else don't delay much, maybe even zero?
+;;		   (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.01)
+;;		   )))
   
   (let* ((num-running             (rmt:get-count-tests-running run-id #f)) ;; fastmode=no
 	 (num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
 	 (job-group-limit         (let ((jobg-count (configf:lookup *configdat* "jobgroups" jobgroup)))
 				    (if (string? jobg-count)

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -125,18 +125,23 @@
 	 (curr-pid    (current-process-id))
 	 (homehost    (common:get-homehost)) ;; configf:lookup *configdat* "server" "homehost" ))
 	 (target-host (car homehost))
 	 (testsuite   (common:get-testsuite-name))
 	 (logfile     (conc areapath "/logs/server.log")) ;; -" curr-pid "-" target-host ".log"))
+	 (profile-mode (or (configf:lookup *configdat* "misc" "profilesw")
+			   ""))
 	 (cmdln (conc (common:get-megatest-exe)
 		      " -server " (or target-host "-") (if (equal? (configf:lookup *configdat* "server" "daemonize") "yes")
 							   " -daemonize "
 							   "")
 		      ;; " -log " logfile
-		      " -m testsuite:" testsuite)) ;; (conc " >> " logfile " 2>&1 &")))))
+		      " -m testsuite:" testsuite
+		      " " profile-mode
+		      )) ;; (conc " >> " logfile " 2>&1 &")))))
 	 (log-rotate  (make-thread common:rotate-logs  "server run, rotate logs thread"))
-         (load-limit  (configf:lookup-number *configdat* "jobtools" "max-server-start-load" default: 3.0)))
+         (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
     (push-directory areapath)
     (debug:print 0 *default-log-port* "INFO: Trying to start server (" cmdln ") ...")
     (thread-start! log-rotate)