Make MAKE-ERROR-RESPONSE work for "method not allowed" responses.

scheme/httpd/response.scm

@@ -174,6 +174,15 @@
 	 (send-message port)
 	 (close-html port))))
 
+     ((eq? code (status-code method-not-allowed))
+      (create-response
+       '()
+       (lambda (port options)
+	 (generic-title port)
+	 (write-string "<P>Method not allowed.\n" port)
+	 (send-message port)
+	 (close-html port))))
+
      ((eq? code (status-code unauthorized))
       (create-response
        (list (cons 'WWW-Authenticate message)) ; Vas is das?