diff --git a/ChangeLog b/ChangeLog
index 1c0e1e3c26..1e87cedfd5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jan 31 13:22:36 2002  Tanaka Akira  <akr@m17n.org>
+
+	* lib/pp.rb (File::Stat#pretty_print): print rdev_major and rdev_minor.
+
 Wed Jan 30 15:58:04 2002  K.Kosako  <kosako@sofnec.co.jp>
 
 	* regex.c (re_adjust_startpos): fix for SJIS and UTF-8. 
diff --git a/lib/pp.rb b/lib/pp.rb
index 995d0df710..82470ce909 100644
--- a/lib/pp.rb
+++ b/lib/pp.rb
@@ -361,7 +361,7 @@ class File
 	pp.breakable
 	pp.group {
 	  m = self.mode
-	  pp.text "mode="; pp.text sprintf("0%o", m)
+	  pp.text sprintf("mode=0%o", m)
 	  pp.breakable
 	  pp.text sprintf("(%s %c%c%c%c%c%c%c%c%c)",
 	    self.ftype,
@@ -400,7 +400,13 @@ class File
 	  end
 	  pp.text ','
 	}
-	pp.breakable; pp.text "rdev="; pp.pp self.rdev; pp.text ','
+	pp.breakable
+	pp.group {
+	  pp.text sprintf("rdev=0x%x", self.rdev)
+	  pp.breakable
+	  pp.text sprintf('(%d, %d)', self.rdev_major, self.rdev_minor)
+	  pp.text ','
+	}
 	pp.breakable; pp.text "size="; pp.pp self.size; pp.text ','
 	pp.breakable; pp.text "blksize="; pp.pp self.blksize; pp.text ','
 	pp.breakable; pp.text "blocks="; pp.pp self.blocks; pp.text ','