--- a/Annotation.st	Mon Mar 17 22:20:38 2014 +0100
+++ b/Annotation.st	Mon Mar 17 22:20:49 2014 +0100
@@ -432,6 +432,9 @@
 !Annotation methodsFor:'queries'!
 
 refersToLiteral: anObject
+    "return true if the receiver or recursively any array element in the
+     receiver refers to aLiteral (i.e. a deep search)"
+
     (anObject == key) ifTrue:[ ^ true ].
     (anObject == arguments) ifTrue:[ ^ true ].
     arguments isArray ifTrue:[ ^ arguments refersToLiteral: anObject].
@@ -657,15 +660,15 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
+    ^ '$Id: Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $'
 ! !