--- a/WrappedMethod.st	Thu Jun 06 22:23:29 2013 +0200
+++ b/WrappedMethod.st	Sun Jun 09 15:32:56 2013 +0200
@@ -53,7 +53,7 @@
 !WrappedMethod class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.33 2012-10-22 08:13:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.34 2013-06-09 13:32:56 cg Exp $'
 ! !
 
 !WrappedMethod class methodsFor:'registration'!
@@ -266,6 +266,12 @@
     "Created: / 27.1.1999 / 20:23:17 / cg"
 !
 
+hasAnnotation
+    "Return true iff the method has any annotation"
+
+    ^ self originalMethod hasAnnotation
+!
+
 hasResource
     "return the wrapped methods hasResource"
 
@@ -324,6 +330,10 @@
     ^ self originalMethod messagesSentToSuper 
 !
 
+refersToLiteral: anObject
+    ^ self originalMethod refersToLiteral: anObject
+!
+
 resources
     "return the wrapped methods resources"
 
@@ -345,5 +355,6 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version_SVN
-    ^ '§Id: WrappedMethod.st 1909 2012-03-31 00:14:49Z vranyj1 §'
+    ^ '$Id: WrappedMethod.st,v 1.34 2013-06-09 13:32:56 cg Exp $'
 ! !
+