diff --git a/LOG b/LOG
index 3d96df9b85..a2c1e94447 100644
--- a/LOG
+++ b/LOG
@@ -754,3 +754,5 @@
     7.ms
 - fix signature of bytevector-[u/s]16-native-set!
     primdata.ss
+- fix enumerate signature 
+    primdata.ss
\ No newline at end of file
diff --git a/s/primdata.ss b/s/primdata.ss
index dc8aee9e62..6eb18d228d 100644
--- a/s/primdata.ss
+++ b/s/primdata.ss
@@ -1244,7 +1244,7 @@
   (enable-interrupts [sig [() -> (uint)]] [flags true])
   (engine-block [sig [() -> (ptr)]] [flags])
   (engine-return [sig [(ptr ...) -> (bottom)]] [flags abort-op])
-  (enumerate [sig [(list) -> (ufixnum)]] [flags alloc])
+  (enumerate [sig [(list) -> (list)]] [flags alloc])
   (enum-set? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
   (environment? [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
   (environment-mutable? [sig [(environment) -> (boolean)]] [flags pure mifoldable discard])
@@ -1457,8 +1457,8 @@
   (mutex-release [feature pthreads] [sig [(mutex) -> (void)]] [flags true])
   (mutex? [feature pthreads] [sig [(ptr) -> (boolean)]] [flags pure unrestricted mifoldable discard])
   (new-cafe [sig [() (procedure) -> (ptr ...)]] [flags])
-  (nonnegative? [sig [(number) -> (boolean)]] [flags pure mifoldable discard])
-  (nonpositive? [sig [(number) -> (boolean)]] [flags pure mifoldable discard])
+  (nonnegative? [sig [(real) -> (boolean)]] [flags pure mifoldable discard])
+  (nonpositive? [sig [(real) -> (boolean)]] [flags pure mifoldable discard])
   (number->string [sig [(number) (number sub-ufixnum) (number sub-ufixnum sub-ufixnum) -> (string)]] [flags alloc])  ; radix not restricted to 2, 4, 8, 16
   (object-counts [sig [() -> (ptr)]] [flags alloc])
   (oblist [sig [() -> (list)]] [flags alloc])