 : cgi-variables ( name -- assoc )
     #! This needs some work.
     [
+        cgi-root get over path+ "PATH_TRANSLATED" set
+        cgi-root get over path+ "SCRIPT_FILENAME" set
         "SCRIPT_NAME" set
 
         "CGI/1.0" "GATEWAY_INTERFACE" set

    "200 CGI output follows" response
    stdio get swap cgi-descriptor <process-stream> [
        post? [
            "raw-response" get
            stream-write stream-flush
        ] when
        stdio get swap (stream-copy)
    ] with-stream ;


        "method" get >upper "REQUEST_METHOD" set
        "raw-query" get "QUERY_STRING" set
	"Cookie" "header" get at "HTTP_COOKIE" set 

        "User-Agent" header-param "HTTP_USER_AGENT" set
        "Accept" header-param "HTTP_ACCEPT" set

        post? [
            "Content-Type" header-param "CONTENT_TYPE" set
            "raw-response" get length number>string "CONTENT_LENGTH" set
        ] when
    ] H{ } make-assoc ;

