       (if (seqable? target)
         (let [starting-index (or (aget value "startingIndex") 0)]
           (build-body target starting-index))
-        (template ol standard-ol-style (template li standard-li-style (reference target (str target))))))))
+        (template ol standard-ol-style (template li standard-li-style (reference target)))))))
 
 ;;;;;;;;; PROTOCOL SUPPORT
 

(def string-style "color:#C41A16")
(def symbol-style "color:#000000")
(def fn-style "color:#090")
(def fn-label "λ")
(def bool-style "color:#099")

; IRC #clojurescript @ freenode.net on 2015-01-27:


(defn standard-body-template
  ([lines margin?] (let [ol-style (if margin? standard-ol-style standard-ol-no-margin-style)
                         li-style (if margin? standard-li-style standard-li-no-margin-style)]
                     (template ol ol-style (map #(template li li-style %) lines))))
  ([lines] (standard-body-template lines true)))

(defn body-line-template [index value]
