Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -655,11 +655,11 @@
   (handle-exceptions
     exn
     (begin 
       (debug:print-info 0 *default-log-port*  "Unable to get host and/or port from " servr ", exn=" exn)     
     #f)
-  (match-let (((mod-time hostname port start-time server-id pid)
+  (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
 ;;