@@ -4612,11 +4612,15 @@
 					(begin
 					  (sqlite3:interrupt! db)
 					  (sqlite3:finalize! db #t)
 					  ;; (vector-set! *task-db* 0 #f)
 					  (set! *task-db* #f)))))
-                              (http-client#close-all-connections!)
+			      (if (and (not (args:get-arg "-server"))
+				       *runremote*)
+				  (begin
+				    (debug:print-info 0 *default-log-port* "Closing all client connections...")
+				    (http-client#close-all-connections!)))
                               ;; (if (and *runremote*
                               ;;          (remote-conndat *runremote*))
                               ;;     (begin
                               ;;       (http-client#close-all-connections!))) ;; for http-client
                               (if (not (eq? *default-log-port* (current-error-port)))