@@ -1181,12 +1181,12 @@
      			 (seconds->hr-min-sec mod)
      			 (if alv "alive" "dead"))
      		 (if (and alv
      			  (args:get-arg "-kill-servers"))
      		     (begin
-     		       (debug:print-info 0 *default-log-port* "Attempting to kill server with pid " pid)
-     		       (server:kill server)))))
+     		       (debug:print-info 0 *default-log-port* "Attempting to kill server with pid " pid " !!needs completion!!")
+     		       #;(server:kill server)))))
      	     (sort servers (lambda (a b)
      			     (let ((ma (or (any->number (car a)) 9e9))
      				   (mb (or (any->number (car b)) 9e9)))
      			       (> ma mb)))))
      	    ;; (debug:print-info 1 *default-log-port* "Done with listservers")