     "/" ?head drop ;
 
 : serve-explicit-responder ( method url -- )
-    "/" split1 
+    "/" split1
     "/responder/" pick "/" 3append "responder-url" set
     dup [
         swap responder call-responder

    #! Add a responder object to the list.
    "responder" over at  responders get set-at ;

: add-simple-responder ( name quot -- )
    [
        [ drop ] swap append dup "get" set "post" set
        "responder" set
    ] H{ } make-assoc add-responder ;

: make-responder ( quot -- responder )
    #! quot has stack effect ( url -- )
    [
        [

    "404 No such responder" httpd-error ;

! create a responders hash if it doesn't already exist
global [
    responders [ H{ } assoc-like ] change
    
    ! 404 error message pages are served by this guy
