cgi: better content length parsing.

diff --git a/extra/cgi/cgi.factor b/extra/cgi/cgi.factor
index eefe653960a6d59860361543ef27060a587e2fe5..5ca78bc6df6bb37ff80b06b436081cb1d8505052 100644 (file)
--- a/extra/cgi/cgi.factor
+++ b/extra/cgi/cgi.factor
@@ -27,7 +27,7 @@ IN: cgi
     "multipart unsupported" throw ;
 
 : (urlencoded) ( -- assoc )
-    "CONTENT_LENGTH" os-env "0" or string>number
+    "CONTENT_LENGTH" os-env [ string>number ] [ 0 ] if*
     read [ "" ] [ "&" append ] if-empty
     "QUERY_STRING" os-env [ append ] when* (query-string) ;