diff --git a/read.scm b/read.scm
index 6e20573..53d7f6f 100644
--- a/read.scm
+++ b/read.scm
@@ -454,7 +454,7 @@
      (list readtable:update %eol (readtable:return 'end-of-list))
      (list readtable:update #\.
            (lambda (table char acc port)
-             (let ((entire-identifier (readtable:read-ident
+             (let ((entire-identifier (read:read-ident
                                        table
                                        char
                                        #f
@@ -905,7 +905,7 @@
 
 (define read:read-hash-messages
   (lambda (_ char acc port)
-    (let ((ident (readtable:read-ident #f char #f port)))
+    (let ((ident (read:read-ident #f char #f port)))
       (let ((container (smap:search read:hash-messages
                                     (ident 'value))))
         (if (null? container)
@@ -941,7 +941,7 @@
 (define readtable:character
   (lambda (_ char __ port)
     (let ((char (port 'read)))
-      (let ((ident (readtable:read-ident #f char #f port)))
+      (let ((ident (read:read-ident #f char #f port)))
         (let ((container (smap:search read:named-characters
                                     (ident 'value))))
           (display (ident 'value))
@@ -1127,7 +1127,8 @@
 (read-all "#d-i")
 (read-all "100i")
 (read-all "+5")
-(read-all "++1+")
+(read-all "++1")
+(read-all "+-1")
 (read-all "+inf.0")
 (read-all "-inf.0")
 (read-all "+nan.0")