@@ -22,11 +22,10 @@
 (declare (uses debugprint))
 (declare (uses common))
 (declare (uses db))
 (declare (uses tasks)) ;; tasks are where stuff is maintained about what is running.
 ;; (declare (uses synchash))
-(declare (uses http-transport))
 ;;(declare (uses rpc-transport))
 (declare (uses launch))
 ;; (declare (uses daemon))
 (declare (uses mtargs))
 
@@ -665,73 +664,73 @@
     #f)
   (match-let (((hostname port start-time server-id pid)
 	       servr))
     (tasks:kill-server hostname pid))))
 
-;; called in megatest.scm, host-port is string hostname:port
-;;
-;; NOTE: This is NOT called directly from clients as not all transports support a client running
-;;       in the same process as the server.
-;;
-(define (server:ping host:port server-id #!key (do-exit #f))
-  (let* ((host-port (cond
-		     ((string? host:port)
-		      (let ((slst (string-split   host:port ":")))
-			(if (eq? (length slst) 2)
-			    (list (car slst)(string->number (cadr slst)))
-			    #f)))
-		     (else
-		      #f))))
-    (cond
-     ((and (list? host-port)
-	   (eq? (length host-port) 2))
-      (let* ((myrunremote (make-and-init-remote *toppath*))
-	     (iface       (car host-port))
-	     (port        (cadr host-port))
-	     (server-dat  (client:connect iface port server-id myrunremote))
-	     (login-res   (rmt:login-no-auto-client-setup myrunremote)))
-	(http-transport:close-connections myrunremote)
-	(if (and (list? login-res)
-		 (car login-res))
-	    (begin
-	      ;; (print "LOGIN_OK")
-	      (if do-exit (exit 0))
-	      #t)
-	    (begin
-	      ;; (print "LOGIN_FAILED")
-	      (if do-exit (exit 1))
-	      #f))))
-     (else 
-      (if host:port
-	  (debug:print 0 *default-log-port*  "ERROR: bad host:port "host:port))
-      (if do-exit
-	  (exit 1)
-	  #f)))))
-
-;; run ping in separate process, safest way in some cases
-;;
-(define (server:ping-server ifaceport)
-  (with-input-from-pipe 
-   (conc (common:get-megatest-exe) " -ping " ifaceport)
-   (lambda ()
-     (let loop ((inl (read-line))
-		(res "NOREPLY"))
-       (if (eof-object? inl)
-	   (case (string->symbol res)
-	     ((NOREPLY)  #f)
-	     ((LOGIN_OK) #t)
-	     (else       #f))
-	   (loop (read-line) inl))))))
-
-;; NOT USED (well, ok, reference in rpc-transport but otherwise not used).
-;;
-(define (server:login toppath)
-  (lambda (toppath)
-    (set! *db-last-access* (current-seconds)) ;; might not be needed.
-    (if (equal? *toppath* toppath)
-	#t
-	#f)))
+;; ;; called in megatest.scm, host-port is string hostname:port
+;; ;;
+;; ;; NOTE: This is NOT called directly from clients as not all transports support a client running
+;; ;;       in the same process as the server.
+;; ;;
+;; (define (server:ping host:port server-id #!key (do-exit #f))
+;;   (let* ((host-port (cond
+;; 		     ((string? host:port)
+;; 		      (let ((slst (string-split   host:port ":")))
+;; 			(if (eq? (length slst) 2)
+;; 			    (list (car slst)(string->number (cadr slst)))
+;; 			    #f)))
+;; 		     (else
+;; 		      #f))))
+;;     (cond
+;;      ((and (list? host-port)
+;; 	   (eq? (length host-port) 2))
+;;       (let* ((myrunremote (make-and-init-remote *toppath*))
+;; 	     (iface       (car host-port))
+;; 	     (port        (cadr host-port))
+;; 	     (server-dat  (client:connect iface port server-id myrunremote))
+;; 	     (login-res   (rmt:login-no-auto-client-setup myrunremote)))
+;; 	(http-transport:close-connections myrunremote)
+;; 	(if (and (list? login-res)
+;; 		 (car login-res))
+;; 	    (begin
+;; 	      ;; (print "LOGIN_OK")
+;; 	      (if do-exit (exit 0))
+;; 	      #t)
+;; 	    (begin
+;; 	      ;; (print "LOGIN_FAILED")
+;; 	      (if do-exit (exit 1))
+;; 	      #f))))
+;;      (else 
+;;       (if host:port
+;; 	  (debug:print 0 *default-log-port*  "ERROR: bad host:port "host:port))
+;;       (if do-exit
+;; 	  (exit 1)
+;; 	  #f)))))
+;; 
+;; ;; run ping in separate process, safest way in some cases
+;; ;;
+;; (define (server:ping-server ifaceport)
+;;   (with-input-from-pipe 
+;;    (conc (common:get-megatest-exe) " -ping " ifaceport)
+;;    (lambda ()
+;;      (let loop ((inl (read-line))
+;; 		(res "NOREPLY"))
+;;        (if (eof-object? inl)
+;; 	   (case (string->symbol res)
+;; 	     ((NOREPLY)  #f)
+;; 	     ((LOGIN_OK) #t)
+;; 	     (else       #f))
+;; 	   (loop (read-line) inl))))))
+;; 
+;; ;; NOT USED (well, ok, reference in rpc-transport but otherwise not used).
+;; ;;
+;; (define (server:login toppath)
+;;   (lambda (toppath)
+;;     (set! *db-last-access* (current-seconds)) ;; might not be needed.
+;;     (if (equal? *toppath* toppath)
+;; 	#t
+;; 	#f)))
 
 ;; timeout is hms string: 1h 5m 3s, default is 1 minute
 ;; This is currently broken. Just use the number of hours with no unit.
 ;; Default is 60 seconds.
 ;;