--- a/WrappedMethod.st	Mon Dec 19 09:37:48 2011 +0100
+++ b/WrappedMethod.st	Mon Dec 19 09:38:46 2011 +0100
@@ -222,6 +222,29 @@
     "Created: / 01-07-2011 / 10:03:32 / cg"
 ! !
 
+!WrappedMethod methodsFor:'private'!
+
+annotationAtIndex: index
+
+    "return annotation at given index.
+     any raw annotation array is lazily
+     initialized"
+
+    ^self originalMethod annotationAtIndex: index
+
+    "Created: / 16-12-2011 / 19:54:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationIndexOf: key
+
+    "Returns index of annotation with given key
+     or nil if there is no such annotation"
+
+    ^self originalMethod annotationIndexOf: key
+
+    "Created: / 16-12-2011 / 19:53:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !WrappedMethod methodsFor:'queries'!
 
 argSignature
@@ -309,5 +332,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.30 2011-12-04 11:35:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.31 2011-12-19 08:38:46 vrany Exp $'
 ! !