diff --git a/src/compiler/Compiler.Mod b/src/compiler/Compiler.Mod
old mode 100644
new mode 100755
index 6148fea2..5855a008
--- a/src/compiler/Compiler.Mod
+++ b/src/compiler/Compiler.Mod
@@ -66,7 +66,7 @@ MODULE Compiler;  (* J. Templ 3.2.95 *)
     OPT.intobj.typ    := OPT.inttyp;
     OPT.lintobj.typ   := OPT.linttyp;
 
-    CASE OPM.LongintSize OF
+    CASE OPM.SetSize OF
     |4:  OPT.settyp := OPT.set32typ
     ELSE OPT.settyp := OPT.set64typ
     END;
diff --git a/src/compiler/OPM.Mod b/src/compiler/OPM.Mod
old mode 100644
new mode 100755
index 85392b15..ef6253d7
--- a/src/compiler/OPM.Mod
+++ b/src/compiler/OPM.Mod
@@ -92,7 +92,7 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
     GlobalAlignment,   Alignment*:   INTEGER;
     GlobalOptions*,    Options*:     SET;
 
-    ShortintSize*, IntegerSize*, LongintSize*: INTEGER;
+    ShortintSize*, IntegerSize*, LongintSize*, SetSize*: INTEGER;
 
     MaxIndex*: SYSTEM.INT64;
 
@@ -328,10 +328,10 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
 
     MaxIndex := SignedMaximum(AddressSize);
     CASE Model[0] OF
-    |'2':  ShortintSize := 1;  IntegerSize := 2;  LongintSize := 4
-    |'C':  ShortintSize := 2;  IntegerSize := 4;  LongintSize := 8
-    |'V':  ShortintSize := 1;  IntegerSize := 4;  LongintSize := 8
-    ELSE   ShortintSize := 1;  IntegerSize := 2;  LongintSize := 4
+    |'2':  ShortintSize := 1;  IntegerSize := 2;  LongintSize := 4;  SetSize := 4;
+    |'C':  ShortintSize := 2;  IntegerSize := 4;  LongintSize := 8;  SetSize := 4;
+    |'V':  ShortintSize := 1;  IntegerSize := 4;  LongintSize := 8;  SetSize := 8;
+    ELSE   ShortintSize := 1;  IntegerSize := 2;  LongintSize := 4;  SetSize := 4;
     END;
 
     (*IF verbose IN Options THEN VerboseListSizes END;*)