diff --git a/rtl/objpas/fgl.pp b/rtl/objpas/fgl.pp
index 4b8489ec89..d9d8a1b57b 100644
--- a/rtl/objpas/fgl.pp
+++ b/rtl/objpas/fgl.pp
@@ -1265,7 +1265,9 @@ end;
 function TFPGInterfacedObjectList.IndexOf(const Item: T): Integer;
 begin
   Result :=
-{$if sizeof(pointer) = sizeof(dword)}
+{$if sizeof(pointer) = sizeof(word)}
+    IndexWord
+{$elseif sizeof(pointer) = sizeof(dword)}
     IndexDWord
 {$elseif sizeof(pointer) = sizeof(qword)}
     IndexQWord