                      []
                      (stack-ref :genome 0 state))
             length (count genome)
-            start (stack-ref :integer 1 state)
-            end (stack-ref :integer 0 state)
+            start (+ length (stack-ref :integer 1 state))
+            end (+ length (stack-ref :integer 0 state))
             source (:parent2-genome state)
             max-length (int (/ @global-max-points 4))]
         (if (>= (+ length (Math/abs (float (- start end))))

                     []
                     (stack-ref :genome 0 state))
            length (count genome)
            start (stack-ref :integer 1 state)
            end (stack-ref :integer 0 state)
            source (:parent1-genome state)
            max-length (int (/ @global-max-points 4))]
        (if (>= (+ length (Math/abs (float (- start end))))

      (push-item (count (stack-ref :genome 0 state))
                 :integer 
               state))))
