Insert string as is prevents regex syntax problems

file.lisp

@@ -79,12 +79,8 @@
   (read-write-file (html-pathname html-text stream)
     (write-sequence
      (regex-replace
-      "\\<h2 class=\\\"chapter\\\"\\>1 Introduction\\<\\/h2\\>"
+      "\\<h2 class=\\\"chapter\\\"\\>1 Introduction\\<\\/h2\\>\\n"
       html-text
-      (format nil
-	      "<h2 class=\"chapter\">1 Introduction</h2>
-<pre>
-~A
-</pre>"
-	      (file-to-string readme-pathname)))
+      (list :match
+	    (file-to-string readme-pathname)))
      stream)))