       (let [ world (.world game)
              pos (.position tribe)
              sp (split-pop (.population tribe))
-             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos migration-radius))
+             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos (migration-radius group)))
              preferences (map (fn [pos] {
                                           :preference (perturbate-low (prosperity-in-pos game tribe pos))
                                           :pos pos

      (let [ world (.world game)
             pos (.position group)
             _ (check-valid-position world pos)
             possible-destinations (filter #(pos-free? game %) (land-cells-around world pos migration-radius))
             preferences (map (fn [pos] {
                                     :preference (perturbate-low (prosperity-in-pos game group pos))
                                     :pos pos

            pop (-> tribe .population total-persons)
            world (.world game)
            pos (.position tribe)
            possible-destinations (filter #(pos-free? game %) (land-cells-around world pos (migration-radius group)))]
        (if
          (and (> pop 35) (< c 0.9) (not (empty? possible-destinations)))
          (/ (opposite c) 2.7)
