@@ -391,11 +391,11 @@
 				  "n/a (no queries)"
 				  (/ *total-non-write-delay* 
 				     *number-non-write-queries*))
 			      " ms")
 	    (debug:print-info 0 "Server shutdown complete. Exiting")
-	    (tasks:server-delete-record! tdb server-id)
+	    (tasks:server-delete-record tdb server-id)
 	    (exit))))))
 
 ;; all routes though here end in exit ...
 ;;
 ;; start_server? 
@@ -411,11 +411,12 @@
   (let ((server-id (open-run-close tasks:server-lock-slot tasks:open-db run-id)))
     (if (not server-id)
 	(begin
 	  ;; since we didn't get the server lock we are going to clean up and bail out
 	  (debug:print-info 2 "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")
-	  (open-run-close tasks:server-delete-records-for-this-pid tasks:open-db))
+	  (open-run-close tasks:server-delete-records-for-this-pid tasks:open-db)
+	  )
 	(let* ((th2 (make-thread (lambda ()
 				   (http-transport:run 
 				    (if (args:get-arg "-server")
 					(args:get-arg "-server")
 					"-")