1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 1dbf94dae..a3c634b4d 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -16,12 +16,14 @@ use log;
 
 1;
 
-sub enteringStep($$$) {
+sub enteringStep {
     my ($o, $step) = @_;
     print _("Entering step `%s'\n", $o->{steps}{$step}{text});
+    $o->SUPER::enteringStep($step);
 }
 sub leavingStep {
-    my ($o) = @_;
+    my ($o, $step) = @_;
+    $o->SUPER::leavingStep($step);
     print "--------\n";
 }