   (when-let [entry (get-in @state [:current-item])]
     (case (:type entry)
       "story" [story (r/wrap entry swap! state assoc :current-item)]
-      "comment" [comment (r/wrap entry swap! state assoc :current-item)]
+      "comment" [comment (r/wrap entry swap! state assoc :current-item) true]
       [:p "Cannot render item"])))
 
 (defmethod page :stream [state]

                 "[+] "
                 "[-] ")]
              (str by " | " (t/time-ago time) " | ")
              [:a {:href (str "/#/items/" id)} "link"]]
             (when-not @collapse?
               [:div
                [:p {:dangerouslySetInnerHTML {:__html text}}]

               [:p (:value (r/props this))]])}))

(declare comment-list)
(defn comment [data & top?]
  (let [collapse? (atom false)]
    (fn [data]
      (let [{:keys [id by kids parent text type time score deleted]} @data]
