--- a/Method.st	Mon Feb 20 23:56:52 1995 +0100
+++ b/Method.st	Tue Feb 21 02:07:07 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.27 1995-02-16 16:24:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.28 1995-02-21 01:05:49 claus Exp $
 '!
 
 !Method class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.27 1995-02-16 16:24:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.28 1995-02-21 01:05:49 claus Exp $
 "
 !
 
@@ -1194,6 +1194,24 @@
 
 !Method methodsFor:'printing & storing'!
 
+whoString
+    "return a string as className>>selector, if this is not an unbound
+     method. Otherwise return 'unbound'. Used with debugging."
+
+    |w|
+
+    w := self who.
+    w notNil ifTrue:[
+	^ (w at:1) name , '>>' , (w at:2)
+    ].
+    ^ 'unbound'
+
+    "
+     Method new whoString
+     (Method compiledMethodAt:#whoString) whoString
+    "
+!
+
 printOn:aStream
     "put a printed representation of the receiver onto aStream.
      Since methods do not store their class/selector, we have to search