diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 72811fdb8..74f567dd5 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -874,7 +874,8 @@
                                       (line . ,line)
                                       (column . ,(1- column)))))
           datum)
-        identity))
+        (lambda (line column datum)
+          datum)))
   (%read port annotate identity))
 
 (define* (read-syntax #:optional (port (current-input-port)))