--- a/Method.st	Sun Jul 02 00:45:41 2017 +0200
+++ b/Method.st	Sun Jul 02 01:10:17 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -244,7 +246,11 @@
 binarySelectorCharacters
     "return a collection of characters which are allowed in binary selectors"
 
+    "/ does not work yet, because we have no 2-byte symbols yet...
+    "/ ^ '&-+=*/\<>~@,?!!|%#≈≠≡≤≥∓∗∘∧∨∴∼'.
     ^ '&-+=*/\<>~@,?!!|%#'.
+
+    "Modified: / 02-07-2017 / 01:09:52 / cg"
 !
 
 isBuiltInClass
@@ -1046,7 +1052,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -1968,7 +1973,7 @@
         (classAndSelector methodClass) name printOn:aStream.
         "/ print out in a form that can directly be evaluated (>> is a selector in Behavior)
         "/ in order to not break existing code which parses those strings,
-        "/ do not replace '>>' by ' » '
+        "/ do not replace '>>' by ' » '
         aStream nextPutAll:' >> '.
         (classAndSelector methodSelector) printOn:aStream.
     ] ifFalse:[
@@ -2004,7 +2009,7 @@
     who := self who.
     who notNil ifTrue:[
         "/ in order to not break existing code which parses those strings,
-        "/ do not replace '>>' by ' » '
+        "/ do not replace '>>' by ' » '
         ^ who methodClass name , ' >> ' , (who methodSelector storeString)
     ].
     ^ 'unboundMethod'
@@ -2033,7 +2038,7 @@
     "
      Method new whoStringWith:' >> '
      (Method compiledMethodAt:#whoString) whoStringWith:' >> '
-     (Method compiledMethodAt:#whoString) whoStringWith:' » '
+     (Method compiledMethodAt:#whoString) whoStringWith:' » '
      (Method compiledMethodAt:#whoString) whoStringWith:' -> '
     "
 ! !
@@ -3758,7 +3763,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo