diff --git a/ChangeLog b/ChangeLog
index 9055093b28..bbc536d74d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Oct  2 19:12:47 2001  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* lib/ftools.rb (catname): allow trailing '/' for the destination.
+
 Tue Oct  2 08:04:52 2001  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
 
 	* marshal.c (r_object): TYPE_UCLASS check should be inversed.
diff --git a/lib/ftools.rb b/lib/ftools.rb
index 5e6203b1a3..4047a595eb 100644
--- a/lib/ftools.rb
+++ b/lib/ftools.rb
@@ -4,12 +4,7 @@ class << File
 
   def catname from, to
     if FileTest.directory? to
-      to +
-	if to =~ /\\/
-	  if to[-1,1] != '\\' then '\\' end + basename(from)
-	else
-	  if to[-1,1] != '/' then '/' end + basename(from)
-	end
+      File.join to.sub(%r([/\\]$), ''), basename(from)
     else
       to
     end