diff --git a/src/ChangeLog b/src/ChangeLog
index 2318d1dbe..940f165a5 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2002-08-19  Pavel Roskin  <proski@gnu.org>
 
+	* cmd.c (fishlink_cmd): Implement user interface for FiSH.
+	* main.c: Add it to the menu.
+
 	* help.c (help_follow_link): Made static.
 
 2002-08-18  Pavel Roskin  <proski@gnu.org>
diff --git a/src/cmd.c b/src/cmd.c
index 20e3e08af..6198a149c 100644
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -1318,6 +1318,11 @@ void ftplink_cmd (void)
     nice_cd (_(" FTP to machine "), _(machine_str),
 	     "[FTP File System]", "/#ftp:", 1);
 }
+void fishlink_cmd (void)
+{
+    nice_cd (_(" Shell link to machine "), _(machine_str),
+	     "[FIle transfer over SHell filesystem]", "/#sh:", 1);
+}
 #ifdef WITH_SMBFS
 void smblink_cmd (void)
 {
diff --git a/src/cmd.h b/src/cmd.h
index b56ba890e..c5afe4b45 100644
--- a/src/cmd.h
+++ b/src/cmd.h
@@ -5,6 +5,7 @@
 
 void netlink_cmd (void);
 void ftplink_cmd (void);
+void fishlink_cmd (void);
 void smblink_cmd (void);
 void undelete_cmd (void);
 void help_cmd (void);
diff --git a/src/main.c b/src/main.c
index b98d01882..1f896d768 100644
--- a/src/main.c
+++ b/src/main.c
@@ -965,6 +965,7 @@ static menu_entry PanelMenu [] = {
     { ' ', N_("&Network link..."),          'N', netlink_cmd },
 #endif
     { ' ', N_("FT&P link..."),              'P', ftplink_cmd },
+    { ' ', N_("S&hell link..."),            'H', fishlink_cmd },
 #ifdef WITH_SMBFS
     { ' ', N_("SM&B link..."),              'B', smblink_cmd },
 #endif
@@ -991,6 +992,7 @@ static menu_entry RightMenu [] = {
     { ' ', N_("&Network link..."),       'N', netlink_cmd },
 #endif
     { ' ', N_("FT&P link..."),           'P', ftplink_cmd },
+    { ' ', N_("S&hell link..."),         'H', fishlink_cmd },
 #ifdef WITH_SMBFS
     { ' ', N_("SM&B link..."),           'B', smblink_cmd },
 #endif