diff --git a/scheme/last-revision b/scheme/last-revision
index 1c95f53..eb804fd 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1863
+1864
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 7039a45..bac7eb7 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1649,7 +1649,7 @@
   (define quasiquote-macro
     (let ()
       (define (datum x)
-        (list (scheme-stx 'quote) (mkstx x '() '() '())))
+        (list (scheme-stx 'quote) (mkstx x top-mark* '() '())))
       (define-syntax app
         (syntax-rules (quote)
           ((_ 'x arg* ...)