                        pr-str
                        (cl/get-document db)
                        :edn-value
-                       read-string)
+                       read-string-safe)
                   rkey))))
   ;; TODO, cleanup and unify with update-in
   (-assoc-in [this key-vec value]

                                            (fn [{v :edn-value :as old}]
                                              (assoc old
                                                :edn-value (pr-str (if-not (empty? rkey)
                                                                     (assoc-in (read-string v) rkey value)
                                                                     value)))))
                        (catch clojure.lang.ExceptionInfo e
                          (if (< attempt 10)

                                         (log e)
                                         (.printStackTrace e)
                                         (throw e)))))
                         new (-> new* :edn-value read-string-safe (get-in rkey))]
                     [old new])) doc 0))))))


