2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 36c7139ac..0253cdf07 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -633,7 +633,7 @@ sub installPackages {
 		$last_dtime = $dtime;
 	    }
 	    $w->flush;
-	} else { unshift @_, $m; goto $oldInstallCallback }
+	} else { goto $oldInstallCallback }
     };
     #- the modification is not local as the box should be living for other package installation.
     undef *install_any::changeMedium;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e268f37f7..63387c35f 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -772,7 +772,7 @@ sub installPackages {
 	    my $p = $data->{depslist}[$id];
 	    $w->set(_("Installing package %s\n%d%%", $p->name, $total && 100 * $current / $total));
 	    $current += $p->size;
-	} else { unshift @_, $m; goto $old }
+	} else { goto $old }
     };
 
     #- the modification is not local as the box should be living for other package installation.