@@ -840,31 +840,10 @@
 	(if (eq? (length output) 0)
 	   #f
 	   #t))
       #t))
 
-;; this is a close duplicate of:
-;;    process:alist-on-host?
-;;    process:alive
-;;
-(define (launch:is-test-alive host pid)
-  (let* ((same-host (equal? host (get-host-name)))
-	 (cmd (conc 
-	       (if same-host "" (conc "ssh "host" "))
-	       "pstree -A "pid)))
-    (if (and host pid
-	     (not (equal? host "n/a")))
-	
-	(let* ((output (if same-host
-			   (with-input-from-pipe cmd read-lines)
-			   (common:generic-ssh cmd read-lines '())))) ;; (with-input-from-pipe cmd read-lines)))
-	  (debug:print 2 *default-log-port* "Running " cmd " received " output)
-	  (if (eq? (length output) 0)
-	      #f
-	      #t))
-	#t))) ;; assuming bad query is about a live test is likely not the right thing to do?
-
 (define (launch:kill-tests-if-dead run-id)
   (let* ((running-tests (rmt:get-tests-for-run run-id "%" `("RUNNING" "LAUNCHED" "REMOTEHOSTSTART") `() #f #f #f #f #f #f #f #f)))
        (let loop ((running-test (car running-tests))
 			     (tal    (cdr running-tests))
 			     (kill-cnt 0))