--- a/Annotation.st	Fri Sep 09 06:17:24 2011 +0200
+++ b/Annotation.st	Fri Sep 09 06:18:27 2011 +0200
@@ -132,7 +132,10 @@
 
 method:method key:key arguments:arguments
 
-    ^(self respondsTo: key)
+    ^
+    "/ cg: do not react on all those methods inherited from Object (such as inline:)
+    "/ self respondsTo: key)
+    (self class includesSelector:key) 
         ifTrue:
             [self 
                 perform: key 
@@ -594,7 +597,7 @@
 !Annotation class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.4 2011-09-05 02:42:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.5 2011-09-09 04:18:27 cg Exp $'
 !
 
 version_SVN