           :tag-enrichment 0
           ;; The number of extra copies of tag-related instructions that will be included in
           ;; the atom-generators.
-          ;; Currently just assumes that all types for which tags are currently implemented
-          ;; are present.
+          
+          :tag-enrichment-types [:integer :boolean :exec :float :char :string :code]
+          ;; The types for tag-related instructions that will be included in the atom-generators
+          ;; when :tag-enrichment is greater than 0.
 
           :autoconstructive false
           ;; If true, then :genetic-operator-probabilities will be {:autoconstruction 1.0},

    (swap! push-argmap assoc
           :atom-generators (conj (:atom-generators @push-argmap)
                                  (tag-instruction-erc
                                    [:integer :boolean :exec :float :char :string :code] 10000)))
    (swap! push-argmap assoc
           :atom-generators (conj (:atom-generators @push-argmap)
                                  (untag-instruction-erc 10000)))

          ;; The number of extra instances of autoconstructive_boolean_rand to include in
          ;; :atom-generators for autoconstruction. If negative then autoconstructive_boolean_rand
          ;; will not be in :atom-generators at all.
          
          :autoconstructive-tag-types [:integer :boolean :exec :float :char :string :code]
          ;; The types for tag-related instructions that will be included in the atom-generators
          ;; when :autoconstructive is true.

          ;;----------------------------------------
          ;; Epignenetics
