diff --git a/collects/web-server/dispatchers/dispatch-log.ss b/collects/web-server/dispatchers/dispatch-log.ss
index 1f3b7d0187..6bfdb4b919 100644
--- a/collects/web-server/dispatchers/dispatch-log.ss
+++ b/collects/web-server/dispatchers/dispatch-log.ss
@@ -20,7 +20,7 @@
  [interface-version dispatcher-interface-version/c]
  [make (->* ()
             (#:format format-req/c
-                      #:log-path path-string?)
+             #:log-path path-string?)
             dispatcher/c)])
 
 (define interface-version 'v1)
diff --git a/collects/web-server/dispatchers/dispatch-passwords.ss b/collects/web-server/dispatchers/dispatch-passwords.ss
index 2272c469ad..663b94b753 100644
--- a/collects/web-server/dispatchers/dispatch-passwords.ss
+++ b/collects/web-server/dispatchers/dispatch-passwords.ss
@@ -72,7 +72,10 @@
   (values update-password-cache!
           (lambda (path user pass)
             (define denied? (read-password-cache))
-            (denied? path (if user (lowercase-symbol! user) #f) pass))))
+            (if denied?
+                (denied? path (if user (lowercase-symbol! user) #f) pass)
+                ; Fail un-safe
+                #f))))
 
 ;; pass-entry = (make-pass-entry str regexp (list sym str))
 (define-struct pass-entry (domain pattern users))