diff --git a/rtl/objpas/objpas.pp b/rtl/objpas/objpas.pp
index 3e3a1e41c1..cac97658b4 100644
--- a/rtl/objpas/objpas.pp
+++ b/rtl/objpas/objpas.pp
@@ -48,7 +48,7 @@ unit objpas;
        TIntegerArray = IntegerArray;
        PIntegerArray = ^IntegerArray;
 {$ifdef CPU16}
-       PointerArray  = array [0..16*1024-2] of Pointer;
+       PointerArray  = array [0..(32768 div SizeOf(Pointer))-2] of Pointer;
 {$else CPU16}
        PointerArray  = array [0..512*1024*1024-2] of Pointer;
 {$endif CPU16}