diff --git a/scheme/ikarus.enumerations.ss b/scheme/ikarus.enumerations.ss
index a9e019f..54c1347 100644
--- a/scheme/ikarus.enumerations.ss
+++ b/scheme/ikarus.enumerations.ss
@@ -56,7 +56,8 @@
   (define (enum-set-universe x)
     (unless (enum-set? x) 
       (die 'enum-set-universe "not an enum set" x))
-    (make-enum-set (enum-set-type x) -1))
+    (let ([t (enum-set-type x)])
+      (make-enum-set (enum-set-type x) (enum-type-mask t))))
   
   (define (enum-set-indexer x)
     (unless (enum-set? x) 
diff --git a/scheme/last-revision b/scheme/last-revision
index 1c631e1..41cf401 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1568
+1569