@@ -207,10 +207,11 @@
 				 (thread-sleep! 0.3) ;; NFS slowness has caused grief here
 
 				 ;; if there is a runscript do it first
 				 (if fullrunscript
 				     (let ((pid (process-run fullrunscript)))
+				       (rmt:test-set-top-process-pid run-id test-id pid)
 				       (let loop ((i 0))
 					 (let-values
 					  (((pid-val exit-status exit-code) (process-wait pid #t)))
 					  (mutex-lock! m)
 					  (vector-set! exit-info 0 pid)
@@ -262,10 +263,11 @@
 
 						   (debug:print 4 "script: " script)
 						   (rmt:teststep-set-status! run-id test-id stepname "start" "-" #f #f)
 						   ;; now launch
 						   (let ((pid (process-run script)))
+						     (rmt:test-set-top-process-pid run-id test-id pid)
 						     (let processloop ((i 0))
 						       (let-values (((pid-val exit-status exit-code)(process-wait pid #t)))
 								   (mutex-lock! m)
 								   (vector-set! exit-info 0 pid)
 								   (vector-set! exit-info 1 exit-status)