diff --git a/collects/syntax/readerr.rkt b/collects/syntax/readerr.rkt
index 6885d393c0..4dfa716187 100644
--- a/collects/syntax/readerr.rkt
+++ b/collects/syntax/readerr.rkt
@@ -30,6 +30,7 @@
       (format "~a~a"
               (cond [(not (error-print-source-location)) ""]
                     [(srcloc->string (srcloc source-name line col pos span))
+                     =>
                      (lambda (s)
                        (format "~a: " s))]
                     [else ""])
diff --git a/collects/tests/syntax/test-readerr.rkt b/collects/tests/syntax/test-readerr.rkt
new file mode 100644
index 0000000000..53af996a99
--- /dev/null
+++ b/collects/tests/syntax/test-readerr.rkt
@@ -0,0 +1,9 @@
+#lang racket/base
+(require rackunit syntax/readerr)
+
+(check-exn
+ (λ (x) 
+   (and (exn:fail:read:eof? x)
+        (regexp-match #rx"^y[01: ]* x" (exn-message x))))
+ (λ () (raise-read-eof-error
+        "x" "y" 1 1 1 1)))