--- a/CompiledCode.st	Fri Aug 18 00:50:40 2000 +0200
+++ b/CompiledCode.st	Fri Aug 18 22:05:21 2000 +0200
@@ -1519,7 +1519,7 @@
 !
 
 referencesLiteral:aLiteral
-    "return true, if this method references the given literal (directly)."
+    "return true, if this method references the given literal directly  (i.e. a flat search)."
 
     |lit|
 
@@ -1538,11 +1538,12 @@
 
     "Modified: / 24.6.1996 / 15:41:59 / stefan"
     "Created: / 28.10.1997 / 13:09:40 / cg"
+    "Modified: / 18.8.2000 / 21:18:51 / cg"
 !
 
 refersToLiteral:aLiteral
     "return true if the receiver or recursively any array element in the
-     receiver refers to aLiteral"
+     receiver refers to aLiteral (i.e. a deep search)"
 
     self literalsDo: [ :el | 
         el == aLiteral ifTrue:[^true].
@@ -1558,11 +1559,12 @@
     "
 
     "Modified: / 3.3.1998 / 00:02:28 / stefan"
+    "Modified: / 18.8.2000 / 21:17:47 / cg"
 ! !
 
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.78 2000-08-17 22:13:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.79 2000-08-18 20:04:49 cg Exp $'
 ! !
 CompiledCode initialize!