1 files changed, 1 insertions, 13 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 3626047b38f..38eb81a7dbc 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -92,18 +92,6 @@ $::run_menu = \&run_menu_wizard;
 # From here on only function definitions
 # ####################################################################
 
-sub native_slashify {
-  my ($r) = @_;
-  $r =~ s/\//\\/g if win32();
-  return $r;
-}
-
-sub forward_slashify {
-  my ($r) = @_;
-  $r =~ s/\\/\//g if win32();
-  return $r;
-}
-
 sub setup_hooks_wizard {
   @::info_hook = ();
   push @::info_hook,
@@ -287,7 +275,7 @@ sub change_path {
   $sw->transient($mw);
   $sw->grab();
   $sw->Label(-text => __('Enter path for') . " TEXDIR: ")->pack(-padx => "2m", -pady => "2m");
-  my $entry = $sw->Entry(-textvariable => native_slashify($val), -width => 60);
+  my $entry = $sw->Entry(-text => native_slashify($val), -width => 60);
   $entry->pack(-padx => "2m", -pady => "2m")->focus();
   my $f = $sw->Frame;
   my $okbutton = $f->Button(-text => __('Ok'), -width => 10,