@@ -423,11 +423,13 @@
 				       (null? ((car testrundat)))) ;; are there any tests that must be run before this one...
 				   (if (not ((cadr testrundat))) ;; this is the line that launches the test to the remote host
 				       (begin
 					 (print "ERROR: Failed to launch the test. Exiting as soon as possible")
 					 (set! *globalexitstatus* 1) ;; 
-					 (exit 1)))
+					 (process-signal (current-process-id) signal/kill)
+					 ;(exit 1)
+					 ))
 				   (if (not (args:get-arg "-keepgoing"))
 				       (hash-table-set! *waiting-queue* new-test-name testrundat)))))))
 		      ((KILLED) 
 		       (debug:print 1 "NOTE: " new-test-name " is already running or was explictly killed, use -force to launch it."))
 		      ((LAUNCHED REMOTEHOSTSTART RUNNING)