diff --git a/quad/quad/typewriter.rkt b/quad/quad/typewriter.rkt
index ba587b9e..beac190b 100644
--- a/quad/quad/typewriter.rkt
+++ b/quad/quad/typewriter.rkt
@@ -47,7 +47,7 @@
                             (let ([str (car (elems q))])
                               (cond
                                 [(hash-has-key? (attrs q) 'link)
-                                 (apply as-link doc str (hash-ref (attrs q) 'link) (origin q))]
+                                 (text doc str (first (origin q)) (second (origin q)) (hasheq 'link (hash-ref (attrs q) 'link)))]
                                 [else
                                  #;(println str)
                                  (void)
@@ -90,15 +90,6 @@
                                                       (consolidate-runs pcs)
                                                       pcs))))))
 
-(define (as-link doc str url-str [x 0] [y 0])
-  (save doc)
-  (fill-color doc "blue")
-  (define width (string-width doc str))
-  (define height (current-line-height doc))
-  (text doc str x y)
-  (link doc x y width height url-str)
-  (restore doc))
-
 (define pb ($break (hasheq 'printable? #f
                            'size '(0 0)
                            'draw (λ (q doc)
@@ -106,7 +97,7 @@
                                    (font-size doc 10)
                                    (define str (string-append "page " (number->string page-count)))
                                    ;; page number
-                                   (as-link doc str "https://practicaltypography.com" 10 10)
+                                   (text doc str 10 10 (hasheq 'link "https://practicaltypography.com"))
                                    (set! page-count (add1 page-count)))) '(#\page)))
 (define (page-wrap xs size [debug #f])
   (break xs size debug