Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1020,11 +1020,11 @@
 		(equal? (configf:lookup *configdat* "setup" "use-cache") "no")))))
 
 ;; force use of server?
 ;;
 (define (common:force-server?)
-  (let ((force-setting (configf:lookup "server" "force"))
+  (let* ((force-setting (configf:lookup "server" "force"))
 	(force-type    (if force-setting (string->symbol force-setting) #f)))
     (case force-type
       ((#f)     #f)
       ((always) #t)
       ((test)   (if (args:get-arg "-execute") ;; we are in a test