--- a/Method.st	Tue May 13 15:51:53 2008 +0200
+++ b/Method.st	Tue May 13 17:26:08 2008 +0200
@@ -1539,7 +1539,7 @@
 
     who := self who.
     who notNil ifTrue:[
-        ^ who methodClass name , '>>' , (who methodSelector storeString)
+        ^ who methodClass name , ' >> ' , (who methodSelector storeString)
     ].
     ^ 'unboundMethod'
 
@@ -2821,7 +2821,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.312 2008-03-10 09:25:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.313 2008-05-13 15:26:08 cg Exp $'
 ! !
 
 Method initialize!