--- a/Method.st	Mon Sep 05 07:07:03 2011 +0200
+++ b/Method.st	Mon Sep 05 10:14:17 2011 +0200
@@ -1833,22 +1833,24 @@
     annotations ifNil:[^nil].
     annotation := annotations at: index.
     annotation isArray ifTrue:[
-	args := annotation size == 2
-		    ifTrue:[annotation second]
-		    ifFalse:[#()].
-	args isArray ifFalse:[args := Array with: args].
-	annotation := Annotation
-			key: annotation first
-			arguments: args.
-	annotation isUnknown ifFalse:[
-	    annotations at: index put: annotation.
+        args := annotation size == 2
+                    ifTrue:[annotation second]
+                    ifFalse:[#()].
+        args isArray ifFalse:[args := Array with: args].
+        annotation := Annotation
+                        method:self
+                        key: annotation first
+                        arguments: args.
+        annotation isUnknown ifFalse:[
+            annotations at: index put: annotation.
 "/            annotation annotatesMethod: self
-	].
+        ].
     ].
     ^annotation
 
     "Created: / 02-07-2010 / 22:30:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 11-07-2010 / 19:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-09-2011 / 08:50:43 / cg"
 !
 
 annotationIndexOf: key
@@ -3529,11 +3531,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.364 2011-08-08 17:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.365 2011-09-05 08:14:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.364 2011-08-08 17:20:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.365 2011-09-05 08:14:17 cg Exp $'
 !
 
 version_SVN