# patch to apply in modules/httpd/auth.tcl
395c395,400
<     return [expr {[lsearch $users $user] >= 0}]
---
>     if {[llength $users]} {
>         return [expr {[lsearch $users $user] >= 0}]
>     } else {
>        # valid-user
>        return 1
>     }
555a561,566
>             if {[expr {[llength $words] == 2}]} {
>                 if {[string equal valid-user [string tolower [lindex $words 1]]]} {
>                     lset words 1 user
>                     lappend words {}
>                 }
>             }