--- a/Method.st	Sun May 20 10:35:25 2018 +0200
+++ b/Method.st	Sun May 20 10:52:25 2018 +0200
@@ -2045,16 +2045,16 @@
     "Modified: 1.11.1996 / 16:27:04 / cg"
 !
 
-whoStringWith:sep
-    "return a string like className>>selector, 
-     if this is not an unbound method.
-     Otherwise return 'unbound'. Used with debugging."
+whoStringWith:sepString
+    "return a string like className>>selector, where '>>' is replaced by sepString. 
+     If this is an unbound method, return 'unbound'. 
+     Used with debugging."
 
     |who|
 
     who := self who.
     who notNil ifTrue:[
-        ^ who methodClass name , sep , (who methodSelector storeString)
+        ^ who methodClass name , sepString , (who methodSelector storeString)
     ].
     ^ 'unboundMethod'