   [game & {:keys [include-comments? include-variations?]
            :or {include-comments? true include-variations? true}}]
   (str (apply str (map #(cl-format nil "[~a ~s]\n" (first %) (second %))
-                       (g :tags)))
+                       (game :tags)))
        "\n"
        (WordUtils/wrap (move-text game
                                   :include-comments? include-comments?

  returns nil."
  [game predicate]
  (when-let [node (find-node-matching game predicate)]
    (assoc g13 :current-node node)))


(defn goto-node-id

            (let [board (node :board)
                  children (node :children)]
              (str 
                (when children
                  (str 
                    ;; SAN of first child move (main variation):
                    (let [m (-> (first children) :board board/last-move)
