diff --git a/ChangeLog b/ChangeLog
index 409f7c1afa..1a60e659dd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Mon Jan  6 18:31:45 2003  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* lib/fileutils.rb (ln): add ' -f' in the verbose message.
+
+	* lib/fileutils.rb (cp_r): add 'p' in the verbose message.
+
 Mon Jan  6 13:26:35 2003  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* process.c (proc_exec_v): follow to proc_spawn_v(). call do_aspawn()
diff --git a/lib/fileutils.rb b/lib/fileutils.rb
index 0e8b8124db..9f2bd37a64 100644
--- a/lib/fileutils.rb
+++ b/lib/fileutils.rb
@@ -326,7 +326,7 @@ module FileUtils
 
   def ln( src, dest, *options )
     force, noop, verbose, = fu_parseargs(options, :force, :noop, :verbose)
-    fu_output_message "ln #{[src,dest].flatten.join ' '}" if verbose
+    fu_output_message "ln#{force ? ' -f' : ''} #{[src,dest].flatten.join ' '}" if verbose
     return if noop
 
     fu_each_src_dest(src, dest) do |s,d|
@@ -372,7 +372,7 @@ module FileUtils
 
   def cp_r( src, dest, *options )
     preserve, noop, verbose, = fu_parseargs(options, :preserve, :noop, :verbose)
-    fu_output_message "cp -r #{[src,dest].flatten.join ' '}" if verbose
+    fu_output_message "cp -r#{preserve ? 'p' : ''} #{[src,dest].flatten.join ' '}" if verbose
     return if noop
 
     fu_each_src_dest(src, dest) do |s,d|