--- a/Method.st	Mon Oct 03 12:44:41 2016 +0100
+++ b/Method.st	Sun Oct 09 21:28:18 2016 +0100
@@ -1059,7 +1059,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -1981,7 +1980,7 @@
     classAndSelector notNil ifTrue:[
         (classAndSelector methodClass) name printOn:aStream.
         "/ print out in a form that can directly be evaluated (>> is a selector in Behavior)
-        "/ aStream nextPutAll:' » '.
+        "/ aStream nextPutAll:'  '.
         aStream nextPutAll:' >> '.
         (classAndSelector methodSelector) printOn:aStream.
     ] ifFalse:[
@@ -2017,7 +2016,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'
@@ -2044,21 +2043,21 @@
 
     annotationOrArray := annotation := annotations at: index.
     annotationOrArray isArray ifTrue:[
-	args := annotationOrArray size == 2
-		    ifTrue:[annotationOrArray second]
-		    ifFalse:[#()].
-	args isArray ifFalse:[args := Array with: args].
-	annotation := Annotation
-			method:self
-			key: annotationOrArray first
-			arguments: args.
-	annotation isUnknown ifFalse:[
-	    annotations isImmutable ifTrue:[
-		annotations := annotations asArray
-	    ].
-	    annotations at: index put: annotation.
+        args := annotationOrArray size == 2
+                    ifTrue:[annotationOrArray second]
+                    ifFalse:[#()].
+        args isArray ifFalse:[args := Array with: args].
+        annotation := Annotation
+                        method:self
+                        key: annotationOrArray first
+                        arguments: args.
+        annotation isUnknown ifFalse:[
+            annotations isImmutable ifTrue:[
+                annotations := annotations asMutableCollection
+            ].
+            annotations at: index put: annotation.
 "/            annotation annotatesMethod: self
-	].
+        ].
     ].
     ^annotation
 
@@ -3761,7 +3760,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo