diff --git a/packages/fcl-web/src/httpdefs.pp b/packages/fcl-web/src/httpdefs.pp
index f002dc55af..3dfd8fa5a2 100644
--- a/packages/fcl-web/src/httpdefs.pp
+++ b/packages/fcl-web/src/httpdefs.pp
@@ -1170,7 +1170,7 @@ begin
       ProcessMultiPart(M,CT, ContentFields)
     else if Pos('APPLICATION/X-WWW-FORM-URLENCODED',Uppercase(CT))<>0 then
       ProcessUrlEncoded(M, ContentFields)
-    else
+    else if CL<>0 then
       begin
 {$ifdef CGIDEBUG}
       SendDebug('InitPostVars: unsupported content type:'+CT);