diff --git a/tests/webtbs/tw28713b.pp b/tests/webtbs/tw28713b.pp
index 4a55072b2c..e3acb0f5ca 100644
--- a/tests/webtbs/tw28713b.pp
+++ b/tests/webtbs/tw28713b.pp
@@ -4,7 +4,7 @@
 
 type
   PWordArray = ^TWordArray;
-  TWordArray = array [0..1023]of LongWord;
+  TWordArray = array [0..1023] of PtrUInt;
 
   TMyclass = class
     LoByte,HiByte:Byte