         new-tag-num (mod (round (perturb-with-gaussian-noise 
                                   uniform-mutation-tag-gaussian-standard-deviation tag-num))
                          @global-tag-limit)
-        new-instr (symbol (apply str (interpose  "_" (concat (butlast tagparts) (list (str new-tag-num))))))]
+        new-instr (symbol (apply str (interpose "_" (concat (butlast tagparts) 
+                                                            (list (str new-tag-num))))))]
     (assoc instr-map :instruction new-instr)))
 
 (defn uniform-mutation

        parent1-genome (:genome parent1)
        parent2-genome (:genome parent2)
        child-genome (if (< (lrand) construct-clone-ratio)
                       (produce-child-genome-by-autoconstruction parent1-genome parent2-genome false argmap)
                       parent1-genome)
        child-errors (if autoconstructive-improve-or-diversify
                       (do

(ns clojush.pushgp.genetic-operators
  (:use [clojush util random individual globals interpreter translate pushstate]
        clojush.instructions.tag
