--- a/Annotation.st	Fri Mar 27 10:22:02 2015 +0100
+++ b/Annotation.st	Fri Mar 27 10:24:52 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
               All Rights Reserved
@@ -314,9 +316,19 @@
     "Modified: / 21-08-2011 / 12:44:47 / cg"
 !
 
+methodSelector
+        "Answer the selector of the method containing the pragma.
+         Added to not confuse this with the selector (i.e. key) of the pragma's message pattern."
+        
+        ^ self method selector
+
+    "Modified: / 21-08-2011 / 12:45:20 / cg"
+!
+
 selector
         "Answer the selector of the method containing the pragma.
-         Do not confuse this with the selector of the pragma's message pattern."
+         Do not confuse this with the selector (i.e. key) of the pragma's message pattern.
+         (use methodSelector, to make this clear)"
         
         ^ self method selector
 
@@ -673,15 +685,15 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.19 2015-03-27 09:24:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.19 2015-03-27 09:24:52 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Annotation.st,v 1.18 2015-03-25 10:51:13 cg Exp $'
+    ^ '$Id: Annotation.st,v 1.19 2015-03-27 09:24:52 cg Exp $'
 ! !