         serializable-data data]
     (set-world-print-method (:world-filename options))
     (miner.tagged/pr-tagged-record-on serializable-data writer)
-    (.toString writer)))
+    (str writer)))
 
 (defn world-reader [resolver]
   (fn [value]


(defn restore-history-from-serialization [history]
  [history]
  (reduce (fn [acc turn] (restore-history-turn-from-serialization acc turn)) history (rest (turns history))))

(defn save-simulation-result-fressian [simulation-result history-filename]
  (let [ bytes (to-serialized-bytes (prepare-history-for-serialization simulation-result))

(defn prepare-history-for-serialization
  "We replace elements unchanged from turn to turn with :unchanged"
  [history]
  (reduce prepare-history-turn-for-serialization history (rest (turns history))))

(defn- restore-game-from-serialization
  "Return game, updated"
