 
 
 
+
+
 (defn omut-row-set-collapsed!! [app-row k v]
-  (om/update! app-row [omut-row-key :collapsed k] v))
+  (om/transact!
+   app-row
+   (fn [app-row]
+     (assoc-in app-row [omut-row-key :collapsed k] v))))
 
 (defn omut-row-set-collapsed-not!! [app-row k]
-  (om/transact! app-row [omut-row-key :collapsed]
-                (fn [app-row]
-                  (if app-row (update-in app-row [k] not) {k false}))))
+  (om/transact!
+   app-row
+   (fn [app-row]
+     (println (app-row omut-row-key))
+     (let [v (get-in app-row [omut-row-key :collapsed k])]
+       (assoc-in app-row [omut-row-key :collapsed k] (if (nil? v) false (not v)))))))
 
 (defn omut-row-collapsed? [app-row k]
   (get-in app-row [omut-row-key :collapsed k] true))

                 text))))))

;; END Long text collapser
;;..................................................................................................



;;**************************************************************************************************


(defn text-collapser [app _ {k :k}]
  (reify
    om/IWillMount
    (will-mount [_]
