diff --git a/ide/issuebrowser.pas b/ide/issuebrowser.pas
index 2b59f042bd..3728778f87 100644
--- a/ide/issuebrowser.pas
+++ b/ide/issuebrowser.pas
@@ -136,7 +136,7 @@ var
   IssueProperty: String;
   IssueMask: TMaskList;
   S, M: String;
-  I: Integer;
+  I: PtrInt;
   Issues: TStringList;
   Issue: TIssue;
   C: TClass;