diff --git a/org/modern-backend.org b/org/modern-backend.org
index facab60..09fffb1 100644
--- a/org/modern-backend.org
+++ b/org/modern-backend.org
@@ -215,7 +215,7 @@ and ~\\ for literal backslash.
 (test osc8-escape
   "OSC 8 hyperlink escape wraps text"
   (is (equal (cl-tty.backend::osc8-link "http://example.com" "click here")
-             (format nil "~C]8;;http://example.com~C\\click here~C]8;;~C\"
+             (format nil "~C]8;;http://example.com~C\click here~C]8;;~C\"
                      #\Esc #\Esc #\Esc #\Esc))))
 #+END_SRC
 
@@ -475,7 +475,7 @@ allows clickable text in terminals that support the protocol.
 #+BEGIN_SRC lisp :tangle ../src/backend/modern.lisp
 (defun osc8-link (url text)
   "Wrap TEXT in an OSC 8 hyperlink to URL."
-  (format nil "~C]8;;~A~C\\~A~C]8;;~C\\"
+  (format nil \"~C]8;;~A~C\\~A~C]8;;~C\\\"
           #\Esc url #\Esc text #\Esc #\Esc))
 #+END_SRC
 
diff --git a/src/backend/modern-tests.lisp b/src/backend/modern-tests.lisp
index 78eed79..c7b4a70 100644
--- a/src/backend/modern-tests.lisp
+++ b/src/backend/modern-tests.lisp
@@ -72,7 +72,7 @@
 (test osc8-escape
   "OSC 8 hyperlink escape wraps text"
   (is (equal (cl-tty.backend::osc8-link "http://example.com" "click here")
-             (format nil "~C]8;;http://example.com~C\\click here~C]8;;~C\"
+             (format nil "~C]8;;http://example.com~C\click here~C]8;;~C\"
                      #\Esc #\Esc #\Esc #\Esc))))
 
 (test hex-color-parsing
diff --git a/src/backend/modern.lisp b/src/backend/modern.lisp
index d076eb6..55b4ae0 100644
--- a/src/backend/modern.lisp
+++ b/src/backend/modern.lisp
@@ -90,7 +90,7 @@ as a fallback when a keyword is not in *named-colors*.")
 
 (defun osc8-link (url text)
   "Wrap TEXT in an OSC 8 hyperlink to URL."
-  (format nil "~C]8;;~A~C\\~A~C]8;;~C\\"
+  (format nil \"~C]8;;~A~C\\~A~C]8;;~C\\\"
           #\Esc url #\Esc text #\Esc #\Esc))
 
 (defparameter *border-chars*