--- a/Array.st	Fri Aug 18 00:50:40 2000 +0200
+++ b/Array.st	Fri Aug 18 22:05:21 2000 +0200
@@ -1731,13 +1731,13 @@
 
 refersToLiteral:aLiteral
     "return true if the receiver or recursively any array element in the
-     receiver referes to aLiteral"
+     receiver referes to aLiteral (i.e. a deep search)"
 
     self do: [ :el | 
-	el == aLiteral ifTrue:[^true].
-	el class == Array ifTrue:[
-	    (el refersToLiteral: aLiteral) ifTrue: [^true]
-	]
+        el == aLiteral ifTrue:[^true].
+        el class == Array ifTrue:[
+            (el refersToLiteral: aLiteral) ifTrue: [^true]
+        ]
     ].
     ^ false
 
@@ -1747,7 +1747,7 @@
      #(1 2 3 (((bar foo))) bar baz) refersToLiteral:#foo  
     "
 
-    "Modified: 22.4.1996 / 12:41:46 / cg"
+    "Modified: / 18.8.2000 / 21:18:14 / cg"
 ! !
 
 !Array methodsFor:'searching'!
@@ -2415,5 +2415,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.125 2000-08-17 17:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.126 2000-08-18 20:05:21 cg Exp $'
 ! !