 SYMBOL: vhosts
 SYMBOL: responders
 
-: >header ( value key -- vector-hash )
-    VH{ } clone [ set-at ] keep ;
+: >header ( value key -- multi-hash )
+    H{ } clone [ insert-at ] keep ;
 
 : print-header ( alist -- )
-    [ swap >Upper-dashes write ": " write print ] vector-hash-each nl ;
+    [ swap >Upper-dashes write ": " write print ] multi-assoc-each nl ;
 
 : response ( msg -- ) "HTTP/1.0 " write print ;
 

        } member?
    ] assoc-subset [
        ": " swap 3append log-message
    ] vector-hash-each ;

: prepare-url ( url -- url )
    #! This is executed in the with-request namespace.


: error-head ( error -- )
    dup log-error response
    H{ { "Content-Type" V{ "text/html" } } } print-header nl ;

: httpd-error ( error -- )
    #! This must be run from handle-request
