 (defn heading
   "A regular expression matching the beginning of a heading line."
   []
-  (re-pattern (str (markdown) "#+ *")))
+  (re-pattern (str (markdown*) "\\#+ *")))
 
 (defn include
   "A regular expression matching the beginning of an include line."

  []
  (re-pattern (str "^" (Pattern/quote *single-comment*))))

(defn markdown
  ""
  []
  (re-pattern (str (comment) " ")))

(defn hidden-comment
  "A regular expression matching the beginning of a commented line that will

      (m anchor) [[:anchor text]]
      (m heading) [[:anchor text]
                   [:comment (m markdown)]]
      (m markdown) [[:comment text]]
      (m hidden-comment) []
      :else (conj (maybe-code-anchor line (lines-reader lines))
                  [:code line]))))
