diff --git a/src/propeller/gp.cljc b/src/propeller/gp.cljc
index 1749ba6..b721eda 100644
--- a/src/propeller/gp.cljc
+++ b/src/propeller/gp.cljc
@@ -148,6 +148,15 @@
                 n (:autoconstructive-crossover-enrichment args)]
             (if (and prob (> prob 0))
               (update args :instructions concat (repeat (or n 1) :gene))
+              args)))
+        ;
+        adjust-for-ah-umad
+        (fn [args]
+          (let [prob (:ah-umad (:variation args))
+                n (:ah-umad-enrichment args)]
+            (if (and prob (> prob 0))
+              (update args :instructions concat (flatten (repeat (or n 1) [:vary :protect])))
               args)))]
     (gp-loop (-> argmap
-                 (adjust-for-autoconstructive-crossover)))))
\ No newline at end of file
+                 (adjust-for-autoconstructive-crossover)
+                 (adjust-for-ah-umad)))))
\ No newline at end of file