diff --git a/scheme/read.sld b/scheme/read.sld
index 2c111dd3..bf69b719 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -15,6 +15,7 @@
     read-all
     read-all/source
     *source-loc-lis*
+    read-test
     include
     include-ci)
   (inline
@@ -83,6 +84,12 @@
 (define (read-all/source port filename)
   (read-all port store-source-info! filename))
 
+;; TODO: assume the source-loc-lis needs to be part of (scheme base) so that those macros can use them
+(define-syntax read-test
+  (er-macro-transformer
+   (lambda (expr rename compare)
+     (error "read test error" (assoc expr *source-loc-lis*) *source-loc-lis*))))
+
 ;; read-all -> port -> [objects]
 (define (read-all . args)
   (let* ((fp (if (null? args)