Stephen bug

svn: r14022

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)

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))