diff --git a/ChangeLog b/ChangeLog
index c64c9d2026..06706874a8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sun Feb  8 16:46:08 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* lib/pp.rb (PP::PPMethods::object_address_group): suppress negative
+	  sign for higher heap areas.
+
 Sun Feb  8 16:18:27 2004  akira yamada  <akira@ruby-lang.org>
 
 	* test/yaml/test_yaml.rb (YAML_Unit_Tests::test_range_cycle):
diff --git a/lib/pp.rb b/lib/pp.rb
index 81a453d9ab..8176e2d6ac 100644
--- a/lib/pp.rb
+++ b/lib/pp.rb
@@ -193,7 +193,7 @@ class PP < PrettyPrint
     end
 
     def object_address_group(obj, &block)
-      group(1, sprintf('#<%s:0x%x', obj.class.to_s, obj.__id__ * 2), '>', &block)
+      group(1, sprintf('#<%s:0x%.x', obj.class.to_s, obj.__id__ * 2), '>', &block)
     end
 
     def comma_breakable