diff --git a/ChangeLog b/ChangeLog
index 8ecd6a01f..c6138dd36 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
 	* Tools/gsdoc.m: Adjust path to headers.  Add warning about
 	deprecation.
 	Patch by e.sammer <eric@linuxstep.org>
+	* Source/NSObject.m: Added some compatibility methods in a
+	categpory of Object.
 
 2002-06-13  Richard Frith-Macdonald <rfm@gnu.org>
 
diff --git a/Source/NSObject.m b/Source/NSObject.m
index d00896afc..951419a2e 100644
--- a/Source/NSObject.m
+++ b/Source/NSObject.m
@@ -1918,13 +1918,21 @@ _fastMallocBuffer(unsigned size)
  * Stuff for compatibility with 'Object' derived classes.
  */
 @interface	Object (NSObjectCompat)
++ (NSString*) description;
 + (void) release;
 + (id) retain;
+- (NSString*) className;
+- (NSString*) description;
 - (void) release;
+- (BOOL) respondsToSelector: (SEL)aSel;
 - (id) retain;
 @end
 
 @implementation	Object (NSObjectCompat)
++ (NSString*) description
+{
+  return NSStringFromClass(self);
+}
 + (void) release
 {
   return;
@@ -1933,10 +1941,24 @@ _fastMallocBuffer(unsigned size)
 {
   return self;
 }
+- (NSString*) className
+{
+  return NSStringFromClass([self class]);
+}
+- (NSString*) description
+{
+  return [NSString stringWithFormat: @"<%s: %lx>",
+    object_get_class_name(self), (unsigned long)self];
+}
 - (void) release
 {
   return;
 }
+- (BOOL) respondsToSelector: (SEL)aSelector
+{
+  /* Object implements -respondsTo: */
+  return [self respondsTo: aSelector];
+}
 - (id) retain
 {
   return self;