From 16f4125d0e539dbced159218741e412db2ca3d55 Mon Sep 17 00:00:00 2001 From: John Clements Date: Thu, 7 Feb 2008 19:37:27 +0000 Subject: [PATCH] saw my own bug first svn: r8571 --- collects/net/cgi-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/net/cgi-unit.ss b/collects/net/cgi-unit.ss index 6d8fbead29..8305fd2007 100644 --- a/collects/net/cgi-unit.ss +++ b/collects/net/cgi-unit.ss @@ -207,7 +207,7 @@ ;; -- string is either GET or POST (though future extension is possible) (define (get-cgi-method) (or (getenv "REQUEST_METHOD") - (error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" request-method))) + (error 'get-cgi-method "REQUEST_METHOD environment variable: expected string, got ~v" (getenv "REQUEST_METHOD")))) ;; generate-link-text : string x html-string -> html-string (define (generate-link-text url anchor-text)