--- a/Method.st	Thu Oct 12 20:14:37 2006 +0200
+++ b/Method.st	Thu Oct 12 20:34:25 2006 +0200
@@ -1497,9 +1497,12 @@
     "
      (Object compiledMethodAt:#at:) printOn:Transcript. Transcript cr.
      (Object compiledMethodAt:#at:) copy printOn:Transcript. Transcript cr.
+
+     (Object compiledMethodAt:#at:) whoString printOn:Transcript. Transcript cr.
+     (Object compiledMethodAt:#at:) copy whoString printOn:Transcript. Transcript cr.
     "
 
-    "Modified: 1.11.1996 / 16:25:34 / cg"
+    "Modified: / 12-10-2006 / 20:32:22 / cg"
 !
 
 whoString
@@ -2733,7 +2736,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.299 2006-10-06 12:32:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.300 2006-10-12 18:34:25 cg Exp $'
 ! !
 
 Method initialize!