--- a/Annotation.st	Tue Mar 24 20:43:10 2015 +0100
+++ b/Annotation.st	Wed Mar 25 11:51:13 2015 +0100
@@ -198,6 +198,13 @@
 
 !Annotation class methodsFor:'finding'!
 
+allInMethod: aMethod
+    "VisualWorks compatibility.
+     Answer a collection of all pragmas found in the given method"
+
+    ^ aMethod annotations
+!
+
 allNamed:aSymbol
     "Answer a collection of all pragmas found in all methods of all classes whose keyword is aSymbol."
         
@@ -666,15 +673,15 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Annotation.st,v 1.17 2015-01-14 13:49:34 cg Exp $'
+    ^ '$Id: Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
 ! !