--- a/Annotation.st	Wed Jul 18 19:13:14 2012 +0200
+++ b/Annotation.st	Wed Jul 18 19:33:44 2012 +0200
@@ -411,6 +411,12 @@
     "Modified: / 21-08-2011 / 12:46:31 / cg"
 !
 
+isResource
+    ^ false
+
+    "Created: / 18-07-2012 / 19:28:39 / cg"
+!
+
 isUnknown
     ^ false
 ! !
@@ -528,6 +534,14 @@
     "Modified: / 16-07-2010 / 11:28:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Annotation::Resource methodsFor:'testing'!
+
+isResource
+    ^ true
+
+    "Created: / 18-07-2012 / 19:28:46 / cg"
+! !
+
 !Annotation::Unknown methodsFor:'accessing'!
 
 arguments
@@ -598,11 +612,11 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011-11-29 10:19:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.8 2012-07-18 17:33:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011-11-29 10:19:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.8 2012-07-18 17:33:44 cg Exp $'
 !
 
 version_SVN