diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas
index 8a9881f47..98c101448 100644
--- a/wst/trunk/ws_helper/generator.pas
+++ b/wst/trunk/ws_helper/generator.pas
@@ -2058,7 +2058,7 @@ begin
   WriteLn('procedure %s.Assign(Source: TPersistent);',[ASymbol.Name]);
   WriteLn('var');
   Indent();WriteLn('src : %s;',[ASymbol.Name]);
-  Indent();WriteLn('i, c : PtrInt;');
+  Indent();WriteLn('i, c : Integer;');
   WriteLn('begin');
     Indent();WriteLn('if Assigned(Source) and Source.InheritsFrom(%s) then begin',[ASymbol.Name]);
     IncIndent();