@@ -670,27 +670,15 @@
      
      ;; Register tests 
      ;;
      ((not (hash-table-ref/default test-registry (runs:make-full-test-name test-name item-path) #f))
       (debug:print-info 4 "Pre-registering test " test-name "/" item-path " to create placeholder" )
-      (if #t ;; always do firm registration now in v1.60 and greater ;; (eq? *transport-type* 'fs) ;; no point in parallel registration if use fs
-	  (begin
-	    (rmt:general-call 'register-test run-id run-id test-name item-path)
-	    (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done))
-	  (let ((th (make-thread (lambda ()
-				   (mutex-lock! registry-mutex)
-				   (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'start)
-				   (mutex-unlock! registry-mutex)
-				   ;; If haven't done it before register a top level test if this is an itemized test
-				   (if (not (eq? (hash-table-ref/default test-registry (runs:make-full-test-name test-name "") #f) 'done))
-				       (rmt:general-call 'register-test run-id run-id test-name ""))
-				   (rmt:general-call 'register-test run-id run-id test-name item-path)
-				   (mutex-lock! registry-mutex)
-				   (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done)
-				   (mutex-unlock! registry-mutex))
-				 (conc test-name "/" item-path))))
-	    (thread-start! th)))
+      ;; always do firm registration now in v1.60 and greater ;; (eq? *transport-type* 'fs) ;; no point in parallel registration if use fs
+      (rmt:general-call 'register-test run-id run-id test-name item-path)
+      (if (not (eq? (hash-table-ref/default test-registry (runs:make-full-test-name test-name "") #f) 'done))
+	  (rmt:general-call 'register-test run-id run-id test-name ""))
+      (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done)
       (runs:shrink-can-run-more-tests-count)   ;; DELAY TWEAKER (still needed?)
       (if (and (null? tal)(null? reg))
 	  (list hed tal (append reg (list hed)) reruns)
 	  (list (runs:queue-next-hed tal reg reglen regfull)
 		(runs:queue-next-tal tal reg reglen regfull)