@@ -227,11 +227,11 @@
 	(if (> etime (current-seconds))
 	    (begin
 	      (thread-sleep! 0.05)
 	      (loop etime))
 	    (debug:print-error 0 *default-log-port* "requests still in progress after 5 seconds of waiting. I'm going to pass on cleaning up http connections"))
-	(close-all-connections!)))
+	(close-idle-connections!)))
   (set! *http-connections-next-cleanup* (+ (current-seconds) 10))
   (mutex-unlock! *http-mutex*))
 
 (define (http-transport:inc-requests-and-prep-to-close-all-connections)
   (mutex-lock! *http-mutex*)
@@ -299,11 +299,11 @@
 						   (cons 'params sparams))
 					     read-string))
 					  transport: 'http)
                                          0)) ;; added this speculatively
 			      ;; Shouldn't this be a call to the managed call-all-connections stuff above?
-			      (close-all-connections!)
+			      (close-idle-connections!)
 			      (mutex-unlock! *http-mutex*)
 			      ))
 	      (time-out     (lambda ()
 			      (thread-sleep! 45)
 			      (debug:print 0 *default-log-port* "WARNING: send-receive took more than 45 seconds!!")
@@ -522,11 +522,11 @@
 	      (let ((curr-time (current-seconds)))
 		(handle-exceptions
 		    exn
 		    (debug:print 0 *default-log-port* "ERROR: Failed to change timestamp on log file " server-log-file ". Are you out of space on that disk? exn=" exn)
 		  (if (not *server-overloaded*)
-		      (change-file-times server-log-file curr-time curr-time)))))
+		      (set-file-times! server-log-file curr-time curr-time)))))
           (loop 0 server-state bad-sync-count (current-milliseconds)))
          (else
           (debug:print-info 0 *default-log-port* "Server timed out. seconds since last db access: " (- (current-seconds) last-access))
           (http-transport:server-shutdown port)))))))