diff --git a/src/lib/v4/Sets.Mod b/src/lib/v4/Sets.Mod
index 60481ea7..6f9f982f 100644
--- a/src/lib/v4/Sets.Mod
+++ b/src/lib/v4/Sets.Mod
@@ -1,9 +1,9 @@
 MODULE Sets;
 
-IMPORT Texts;
-
-CONST size* = 32;
+IMPORT Texts := CmdlnTexts;
 
+CONST (*size* = 32;*)
+      size* = MAX(SET) + 1;
 
 PROCEDURE Clear*(VAR s: ARRAY OF SET);
   VAR i: INTEGER;
@@ -134,4 +134,4 @@ BEGIN
   Texts.Write(f, "}")
 END Print;
 
-
+END Sets.