diff --git a/Parser.pas b/Parser.pas
index 8ad9749..9837d81 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -3662,7 +3662,9 @@ procedure DoStatement;
                   with iPtr^.itree^ do
         	     if token.kind = intconst then
                         if token.ival = 0 then
-                           ZeroFill := true;
+                                        {don't call ~ZERO for very small arrays}
+                           if elements * itype^.size > 10 then
+                              ZeroFill := true;
          end; {ZeroFill}