diff --git a/scheme/ikarus.reader.ss b/scheme/ikarus.reader.ss
index ff562ae..198ded8 100644
--- a/scheme/ikarus.reader.ss
+++ b/scheme/ikarus.reader.ss
@@ -257,7 +257,7 @@
                   (string-append ".." (string c)))]))]
           [else 
            (cons 'datum
-             (dot p '(#\.) 10 #f #f))]))))
+             (dot p '(#\.) 10 #f +1))]))))
   (define tokenize-char* 
     (lambda (i str p d)
       (cond
diff --git a/scheme/last-revision b/scheme/last-revision
index 419ccb2..2b84175 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1511
+1512