From 63b84d4f2b3dd2369277766344e1483844e3d8cc Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 25 Feb 2008 16:02:21 -0600
Subject: [PATCH] fix furnace
---
extra/http/server/responders/responders.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/http/server/responders/responders.factor b/extra/http/server/responders/responders.factor
index 5e0a5d57d9..ac317e2605 100755
--- a/extra/http/server/responders/responders.factor
+++ b/extra/http/server/responders/responders.factor
@@ -77,7 +77,7 @@ SYMBOL: max-post-request
1024 256 * max-post-request set-global
: content-length ( header -- n )
- "content-length" peek-at string>number dup [
+ "content-length" swap peek-at string>number dup [
dup max-post-request get > [
"Content-Length > max-post-request" throw
] when