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