diff --git a/ide/issuebrowser.pas b/ide/issuebrowser.pas
index 6599079265..a22a91ff00 100644
--- a/ide/issuebrowser.pas
+++ b/ide/issuebrowser.pas
@@ -234,7 +234,7 @@ begin
       begin
         with IssueTreeView.Items.AddChild(nil, Issues[I]) do
         begin
-          ID := Integer(Issues.Objects[I]);
+          ID := PtrInt(Issues.Objects[I]);
           
           ImageIndex := IDEImages.LoadImage(16, WidgetSetImageNames[FIssueList[ID].WidgetSet]);
           StateIndex := ImageIndex;