Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -43,13 +43,18 @@
     (append newalist (list (if metadata
 			       (list key val metadata)
 			       (list key val))))))
 
 (define (config:eval-string-in-environment str)
-  (let ((cmdres (cmd-run->list (conc "echo " str))))
-    (if (null? cmdres) ""
-	(caar cmdres))))
+  (handle-exceptions
+   exn
+   (begin
+     (debug:print 0 "ERROR: problem evaluating \"" str "\" in the shell environment")
+     #f)
+   (let ((cmdres (cmd-run->list (conc "echo " str))))
+     (if (null? cmdres) ""
+	 (caar cmdres)))))
 
 ;;======================================================================
 ;; Make the regexp's needed globally available
 ;;======================================================================
 

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -459,15 +459,15 @@
 
       ;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
       ;;
       ;; no_traffic, no running tests, if server 0, no running servers
       ;;
-      ;; (let ((wait-on-running (configf:lookup *configdat* "server" "wait-on-running"))) ;; wait on running tasks (if not true then exit on time out)
+      ;; (let ((wait-on-running (configf:lookup *configdat* "server" b"wait-on-running"))) ;; wait on running tasks (if not true then exit on time out)
       ;;
       (let* ((hrs-since-start  (/ (- (current-seconds) server-start-time) 3600))
 	     (adjusted-timeout (if (> hrs-since-start 1)
-				   (- server-timeout (* hrs-since-start 60))  ;; subtract 60 seconds per hour
+				   (- server-timeout (inexact->exact (round (* hrs-since-start 60))))  ;; subtract 60 seconds per hour
 				   server-timeout)))
 	(if (common:low-noise-print 120 "server timeout")
 	    (debug:print-info 0 "Adjusted server timeout: " adjusted-timeout))
 	(if (and *server-run*
 		 (> (+ last-access server-timeout)