Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -641,11 +641,11 @@
 					  ;; (vector-set! *task-db* 0 #f)
 					  (set! *task-db* #f)))))
                               (if (and *runremote*
                                        (remote-conndat *runremote*))
                                   (begin
-                                    (close-all-connections!))) ;; for http-client
+                                    (http-client#close-all-connections!))) ;; for http-client
                               (if (not (eq? *default-log-port* (current-error-port)))
                                   (close-output-port *default-log-port*))
 			      (set! *default-log-port* (current-error-port))) "Cleanup db exit thread"))
 	  (th2 (make-thread (lambda ()
 			      (debug:print 4 *default-log-port* "Attempting clean exit. Please be patient and wait a few seconds...")