diff --git a/src/std/error.ss b/src/std/error.ss
index 62ed7aed1..a0c481c51 100644
--- a/src/std/error.ss
+++ b/src/std/error.ss
@@ -83,8 +83,8 @@
     ((_ here)
      (with-syntax ((where
                     (cond
-                     ((or (AST-source #'here)
-                          (AST-source stx))
+                     ((or (stx-source #'here)
+                          (stx-source stx))
                       => (lambda (locat)
                            (call-with-output-string "" (cut ##display-locat locat #t <>))))
                      (else