Remove bug from POST forms: Let GET-HEADER return only the header

value.

scheme/httpd/surflets/surflets.scm

@@ -83,7 +83,10 @@
     (release-lock *cache-lock*)
     result))
 
-(define get-header assq)
+(define (get-header headers tag)
+  (cond ((assq tag headers) => cdr)
+	(else #f)))
+	 
    
 ;; Will be needed when we handle POST requests.
 (define (get-content-length headers)
@@ -96,7 +99,7 @@
 		 (string->number (substring content-length first-digit 
 					    content-length-len))
 		 ;; (status-code bad-request) req 
-		 `(error "Illegal `Content-length:' header.")))))
+		 (error "Illegal `Content-length:' header.")))))
 	(else 
 	 (error "No Content-length specified for POST data."))))