1 files changed, 4 insertions, 2 deletions

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index cfc62b9c3..1596a7572 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -367,8 +367,10 @@ sub choosePackagesTree {
 				    while (@ask_unselect > keys %ask_unselect) {
 					@ask_unselect{@ask_unselect} = ();
 					foreach (keys %ask_unselect) {
-					    push @ask_unselect, grep { ! exists $ask_unselect{$_} }
-					                        keys %{$state->{rejected}{$_}{backtrack}{closure} || {}};
+					    foreach (keys %{$state->{rejected}{$_}{backtrack}{closure} || {}}) {
+						next if exists $ask_unselect{$_};
+						push @ask_unselect, $_;
+					    }
 					}
 				    }
 				    $error = [ N("You can't select/unselect this package"),