diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp
index 20145e2..1b710a1 100644
--- a/source/clog-connection.lisp
+++ b/source/clog-connection.lisp
@@ -610,8 +610,8 @@ the contents sent to the brower."
 (defun escape-string (str)
   "Escape STR for sending to browser script."
   (let ((res))
-    (setf res (ppcre:regex-replace-all "\\x5C" res "\\x5C")) ; \
-    (setf res (ppcre:regex-replace-all "\\x22" str "\\x22")) ; "
+    (setf res (ppcre:regex-replace-all "\\x5C" str "\\x5C")) ; \
+    (setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; "
     (setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; '
     (setf res (ppcre:regex-replace-all "\\x0A" res "\\x0A")) ; \n
     (setf res (ppcre:regex-replace-all "\\x0D" res "\\x0D")) ; \r