diff --git a/tests/test/tforin8.pp b/tests/test/tforin8.pp
index 85376a9542..e91cb516d0 100644
--- a/tests/test/tforin8.pp
+++ b/tests/test/tforin8.pp
@@ -55,7 +55,7 @@ var
 begin
   List := TMyList.Create;
   for i in List do
-    WriteLn(Integer(i));
+    WriteLn(PtrUInt(i));
   List := nil;
 end.