diff --git a/quad/quadwriter/lang-helper.rkt b/quad/quadwriter/lang-helper.rkt
index 319cb1bc..140fc551 100644
--- a/quad/quadwriter/lang-helper.rkt
+++ b/quad/quadwriter/lang-helper.rkt
@@ -120,7 +120,7 @@
       [(? list? xs) (map loop xs)]
       [_ x])))
 
-(define (get-info in mod line col pos)
+(define (get-info-texty in mod line col pos)
   ;; DrRacket caches source file information per session,
   ;; so we can do the same to avoid multiple searches for the command char.
   (define command-char-cache (make-hash))
@@ -147,3 +147,5 @@
             line-start-pos))
          (- first-vis-pos line-start-pos))]      
       [else default])))
+
+(define (get-info-rackety in mod line col pos) (λ (key default) default))
diff --git a/quad/quadwriter/main.rkt b/quad/quadwriter/main.rkt
index a7c00e28..971f3477 100644
--- a/quad/quadwriter/main.rkt
+++ b/quad/quadwriter/main.rkt
@@ -11,6 +11,7 @@
 (module reader racket/base
   (require "lang-helper.rkt")
   (provide (rename-out [rs read-syntax]) get-info)
+  (define get-info get-info-rackety)
   (define rs (make-read-syntax 'quadwriter/lang
                                (λ (path ip)
                                  (for/list ([tok (in-port read ip)])
diff --git a/quad/quadwriter/markdown.rkt b/quad/quadwriter/markdown.rkt
index d516f552..3e890a12 100644
--- a/quad/quadwriter/markdown.rkt
+++ b/quad/quadwriter/markdown.rkt
@@ -24,6 +24,7 @@
 (module reader racket/base
   (require racket/port markdown "lang-helper.rkt")
   (provide read-syntax get-info)
+  (define get-info get-info-texty)
   (define read-syntax (make-read-syntax 'quadwriter/markdown
                                         (λ (path-string p) (xexpr->parse-tree
                                                             (parameterize ([current-strict-markdown? #t])
diff --git a/quad/quadwriter/markup.rkt b/quad/quadwriter/markup.rkt
index 4dae77f7..457a4f88 100644
--- a/quad/quadwriter/markup.rkt
+++ b/quad/quadwriter/markup.rkt
@@ -11,6 +11,7 @@
 (module reader racket/base
   (require "lang-helper.rkt" pollen/decode)
   (provide read-syntax get-info)
+  (define get-info get-info-texty)
   (define read-syntax
     (make-read-syntax 'quadwriter/markup
                       (λ (path-string ip)