@@ -1040,11 +1040,11 @@
       (if maxload ;; only gate if maxload is specified
           (common:wait-for-cpuload maxload numcpus waitdelay))
       (if maxhomehostload
           (common:wait-for-homehost-load maxhomehostload (conc "Waiting for homehost load to drop below normalized value of " maxhomehostload)))
       
-      (run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry)
+      (BBprofile run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry)
       (runs:incremental-print-results run-id)
       (hash-table-set! test-registry (db:test-make-full-name test-name item-path) 'running)
       (runs:shrink-can-run-more-tests-count runsdat)  ;; DELAY TWEAKER (still needed?)
       ;; (thread-sleep! *global-delta*)
       (if (or (not (null? tal))(not (null? reg)))
@@ -1614,16 +1614,10 @@
        lst))
 
 
 
 
-(define (run:test-standalone target runname keys keyvals flags)
-  (let* ((run-id ...)
-         (run-info ...)
-         
-
-  )
 
 ;; parent-test is there as a placeholder for when parent-tests can be run as a setup step
 ;;
 (define (run:test run-id run-info keyvals runname test-record flags parent-test test-registry all-tests-registry)
   ;; all-tests-registry - used to determine test path
@@ -1786,11 +1780,11 @@
 		 
 		 (if skip-test
 		     (begin
 		       (mt:test-set-state-status-by-id run-id test-id "COMPLETED" "SKIP" skip-test)
 		       (debug:print-info 1 *default-log-port* "SKIPPING Test " full-test-name " due to " skip-test))
-		     (if (not (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat flags)) ;; HERE WE GO
+		     (if (not (BBprofile launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat flags)) ;; HERE WE GO
 			 (begin
 			   (print "ERROR: Failed to launch the test. Exiting as soon as possible")
 			   (set! *globalexitstatus* 1) ;; 
 			   (process-signal (current-process-id) signal/kill))))))))
 	((KILLED)