@@ -1067,15 +1067,17 @@
      		(else
      		 (pp data))))))
            (if out-file (close-output-port out-port))
            (exit) ;; yes, bending the rules here - need to exit since this is a utility
            ))
-     
-     (if (args:get-arg "-ping")
+
+  ;; disabled for now
+  
+     #;(if (args:get-arg "-ping")
          (let* ((server-id     (string->number (args:get-arg "-ping"))) ;; extract run-id (i.e. no ":"
      	   (host:port     (args:get-arg "-ping")))
-           (server:ping (or server-id host:port) #f do-exit: #t)))
+           (server-ready? (or server-id host:port) #f do-exit: #t)))
      
      ;;======================================================================
      ;; Capture, save and manipulate environments
      ;;======================================================================