From a9fb7b0fef70835175e529e3d7adf4de7993c66b Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 3 Aug 2008 14:18:11 -0700
Subject: [PATCH] fixed small bug in enum-universe.

---
 scheme/ikarus.enumerations.ss | 3 ++-
 scheme/last-revision          | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

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