--- a/WrappedMethod.st	Tue Jun 04 16:21:20 2013 +0100
+++ b/WrappedMethod.st	Mon Jun 10 15:36:00 2013 +0100
@@ -50,11 +50,10 @@
 "
 ! !
 
-
 !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 $'
 !
 
 version_HG
@@ -62,7 +61,6 @@
     ^ '$Changeset: <not expanded> $'
 ! !
 
-
 !WrappedMethod class methodsFor:'registration'!
 
 allInstancesDo:aBlock
@@ -90,7 +88,6 @@
     "Created: / 01-07-2011 / 10:03:55 / cg"
 ! !
 
-
 !WrappedMethod methodsFor:'accessing'!
 
 annotations
@@ -232,7 +229,6 @@
     ^ self originalMethod source
 ! !
 
-
 !WrappedMethod methodsFor:'misc'!
 
 makeLocalStringSource
@@ -254,7 +250,6 @@
     "Created: / 01-07-2011 / 10:03:32 / cg"
 ! !
 
-
 !WrappedMethod methodsFor:'private'!
 
 annotationAtIndex: index
@@ -278,7 +273,6 @@
     "Created: / 16-12-2011 / 19:53:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !WrappedMethod methodsFor:'queries'!
 
 argSignature
@@ -287,6 +281,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"
 
@@ -345,6 +345,10 @@
     ^ self originalMethod messagesSentToSuper 
 !
 
+refersToLiteral: anObject
+    ^ self originalMethod refersToLiteral: anObject
+!
+
 resources
     "return the wrapped methods resources"
 
@@ -363,7 +367,6 @@
     "Created: / 27.1.1999 / 20:52:25 / cg"
 ! !
 
-
 !WrappedMethod class methodsFor:'documentation'!
 
 version
@@ -371,6 +374,6 @@
 !
 
 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 $'
 ! !