--- VisualSwapcodes/Unit1.pas	2007/02/20 16:34:20	99
+++ VisualSwapcodes/Unit1.pas	2007/02/20 17:10:14	100
@@ -211,7 +211,10 @@ end;
 function TSwapList.CloseArray: TSwapList;
 begin
   if Self.name = 'SWAPC_FIXARR_S' then
-    Self.size := Self.size * Self.count
+  begin
+    Self.size := Self.size * Self.count;
+    Self.parent.size := Self.parent.size + Self.size;
+  end
   else
     Self.size := Self.count;
   Result := Self.parent;