diff --git a/src/compiler/OPP.Mod b/src/compiler/OPP.Mod
index 3dedb545..0ff9b7fb 100644
--- a/src/compiler/OPP.Mod
+++ b/src/compiler/OPP.Mod
@@ -922,14 +922,14 @@ MODULE OPP;  (* NW, RC 6.3.89 / 10.2.94 *)  (* object model 4.12.93 *)
           OPT.Insert(OPS.name, obj); obj^.mode := OPT.Typ; obj^.typ := OPT.undftyp;
           CheckMark(obj^.vis);
           IF sym = OPS.eql THEN
-            IF (obj^.name = OPT.sinttyp.strobj.name) OR 
-               (obj^.name = OPT.inttyp.strobj.name) OR
-               (obj^.name = OPT.linttyp.strobj.name) OR
-               (obj^.name = OPT.hinttyp.strobj.name) OR
-               (obj^.name = OPT.realtyp.strobj.name) OR
-               (obj^.name = OPT.lrltyp.strobj.name) OR
-               (obj^.name = OPT.settyp.strobj.name) OR
-               (obj^.name = OPT.chartyp.strobj.name) OR
+            IF (obj^.name = "SHORTINT") OR 
+               (obj^.name = "INTEGER") OR
+               (obj^.name = "LONGINT") OR
+               (obj^.name = "HUGEINT") OR
+               (obj^.name = "REAL") OR
+               (obj^.name = "LONGREAL") OR
+               (obj^.name = "SET") OR
+               (obj^.name = "CHAR") OR
                (obj^.name = "TRUE") OR (obj^.name = "FALSE") THEN
               OPM.Mark(-310, OPM.curpos); (* notice about aliasing of predefined type *) 
             END;