--- a/Object.st	Tue Nov 21 11:20:58 1995 +0100
+++ b/Object.st	Tue Nov 21 13:47:44 1995 +0100
@@ -43,7 +43,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.70 1995-11-20 13:15:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.71 1995-11-21 12:47:44 cg Exp $'
 !
 
 documentation
@@ -1914,28 +1914,27 @@
 !Object methodsFor:'debugging'!
 
 obsoleteMethodWarning:message from:aContext
-    "in methods which are going to be obsoleted, a self send to
+    "in methods which are going to be obsoleted, a self-send to
      this method is used to tell programmers that a method is
      used which is going to be removed in later ST/X versions.
      Find all methods which will be obsolete soon by looking at senders
-     of this."
-
-    |m spec w|
-
-    m := aContext method.
-    spec := m displayString.
-    m notNil ifTrue:[
-	w := m who.
-	w notNil ifTrue:[
-	    spec := (w at:1) name , '>>' , (w at:2)
-	]
-    ].
+     of this message.
+     Hopefully, this warning message is annoying enough for you to
+     change the code ... ;-)"
+
+    |spec|
+
+    spec := aContext methodPrintString.
     ('WARNING: the ''' , spec , ''' method is obsolete.') errorPrintNL.
     ('         And may not be present in future ST/X versions.') errorPrintNL.
     ('         called from ' , aContext sender printString) errorPrintNL.
     message notNil ifTrue:[
 	'------>  ' errorPrint. message errorPrintNL
     ]
+
+    "
+     Object obsoleteMethodWarning:'foo' from:thisContext sender sender
+    "
 !
 
 obsoleteMethodWarning:message
@@ -1943,7 +1942,9 @@
      this method is used to tell programmers that a method is
      used which is going to be removed in later ST/X versions.
      Find all methods which will be obsolete soon by looking at senders
-     of this."
+     of this message.
+     Hopefully, this warning message is annoying enough for you to
+     change the code ... ;-)"
 
     self obsoleteMethodWarning:message from:thisContext sender
 !
@@ -1953,7 +1954,9 @@
      this method is used to tell programmers that a method is
      used which is going to be removed in later ST/X versions.
      Find all methods which will be obsolete soon by looking at senders
-     of this."
+     of this message.
+     Hopefully, this warning message is annoying enough for you to
+     change the code ... ;-)"
 
     self obsoleteMethodWarning:nil from:thisContext sender
 !