diff --git a/ftp-obsolete.scm b/ftp-obsolete.scm
new file mode 100644
index 0000000..1ec728c
--- /dev/null
+++ b/ftp-obsolete.scm
@@ -0,0 +1,24 @@
+; maps obsolete ftp-procedure names to new ftp procedure names
+; by Andreas Bernauer (2002)
+
+(define ftp:connect ftp-connect)
+(define ftp:login ftp-login)
+(define ftp:type ftp-type)
+(define ftp:rename ftp-rename)
+(define ftp:delete ftp-delete)
+(define ftp:cd ftp-cd)
+(define ftp:cdup ftp-cdup)
+(define ftp:pwd ftp-pwd)
+(define ftp:rmdir ftp-rmdir)
+(define ftp:mkdir ftp-mkdir)
+(define ftp:modification-time ftp-modification-time)
+(define ftp:size ftp-size)
+(define ftp:abort ftp-abort)
+(define ftp:quit ftp-quit)
+(define ftp:ls ftp-ls)
+(define ftp:dir ftp-dir)
+(define ftp:get ftp-get)
+(define ftp:put ftp-put)
+(define ftp:append ftp-append)
+(define ftp:quot ftp-quot)
+