Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -339,11 +339,11 @@
 	  (begin
 	    (print-call-chain *default-log-port*)
 	    (debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
 	  (if (args:any-defined? "-server" "-execute" "-run")
 	      (debug:print-info 0 *default-log-port* "Closing connections to "api-dat))
-	  (close-connection! api-dat)
+	  (if api-dat (close-connection! api-dat))
 	  (remote-conndat-set! runremote #f)
 	  #t))
       #f))
 
 ;; run http-transport:keep-running in a parallel thread to monitor that the db is being