--- a/Method.st	Wed Mar 25 11:51:28 2015 +0100
+++ b/Method.st	Wed Mar 25 11:52:15 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -395,6 +397,18 @@
 
 !Method methodsFor:'Compatibility-VW'!
 
+attributeAt:aSymbol ifAbsent:exceptionValue
+    |annots|
+
+    annots := self annotationsAt:aSymbol.
+    annots isEmptyOrNil ifTrue:[^ exceptionValue value].
+    ^ annots first arguments first
+!
+
+attributeMessages
+    ^ self annotations
+!
+
 classIsMeta
     "return true, if this method is a class method"
 
@@ -1000,6 +1014,7 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
+
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -3631,6 +3646,7 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
+
 !Method methodsFor:'source management'!
 
 revisionInfo
@@ -3878,11 +3894,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.457 2015-02-25 22:21:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.458 2015-03-25 10:52:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.457 2015-02-25 22:21:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.458 2015-03-25 10:52:15 cg Exp $'
 !
 
 version_SVN