--- a/WrappedMethod.st	Sun Feb 23 00:15:23 2014 +0100
+++ b/WrappedMethod.st	Tue Feb 25 00:22:28 2014 +0100
@@ -53,7 +53,7 @@
 !WrappedMethod class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.38 2014-02-05 17:52:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.39 2014-02-24 23:22:28 vrany Exp $'
 ! !
 
 !WrappedMethod class methodsFor:'registration'!
@@ -85,14 +85,6 @@
 
 !WrappedMethod methodsFor:'accessing'!
 
-annotations
-    "return the wrapped method's annotations"
-
-    ^ self originalMethod annotations
-
-    "Created: / 04-12-2011 / 11:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 basicLiterals
     "return my literals"
 
@@ -257,6 +249,58 @@
     "Created: / 16-10-2013 / 00:05:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!WrappedMethod methodsFor:'accessing-annotations'!
+
+annotateWith: annotation
+    ^ self originalMethod annotateWith: annotation
+
+    "Created: / 24-02-2014 / 22:47:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationAt: key
+    ^ self originalMethod annotationAt: key
+
+    "Created: / 24-02-2014 / 22:49:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotations
+    "return the wrapped method's annotations"
+
+    ^ self originalMethod annotations
+
+    "Created: / 04-12-2011 / 11:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotations: anObject
+    self originalMethod annotations: anObject
+
+    "Created: / 24-02-2014 / 22:49:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationsAt: key
+    ^ self originalMethod annotationAt: key
+
+    "Created: / 24-02-2014 / 22:49:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationsAt: key1 orAt: key2
+    ^ self originalMethod annotationsAt: key1 orAt: key2
+
+    "Created: / 24-02-2014 / 22:50:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationsAt: key1 orAt: key2 do: block
+    ^ self originalMethod annotationsAt: key1 orAt: key2 do: block
+
+    "Created: / 24-02-2014 / 22:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+annotationsDo: aBlock
+    ^ self originalMethod annotationsDo: aBlock
+
+    "Created: / 24-02-2014 / 22:50:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !WrappedMethod methodsFor:'misc'!
 
 makeLocalStringSource
@@ -444,6 +488,6 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: WrappedMethod.st,v 1.38 2014-02-05 17:52:13 cg Exp $'
+    ^ '$Id: WrappedMethod.st,v 1.39 2014-02-24 23:22:28 vrany Exp $'
 ! !