M src/httpd.tcl => src/httpd.tcl +1 -1
@@ 52,7 52,7 @@ namespace eval ::httpd {
lassign [split header :] key value
set key [string tolower [string trim $key]]
set value [string trim $value]
- dict lappend $key $value
+ dict lappend headers $key $value
}
foreach {pathpat proc} [set routes($parent)] {