--- a/String.st	Mon Jan 07 10:14:45 2008 +0100
+++ b/String.st	Mon Jan 07 10:14:48 2008 +0100
@@ -3106,6 +3106,8 @@
 !
 
 referencesAny:aCollection
+    "redefined to speed up searching when many string instances are present"
+
     self class == String ifTrue:[^ false].
     ^ super referencesAny:aCollection
 !
@@ -3486,5 +3488,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.248 2008-01-07 09:13:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.249 2008-01-07 09:14:48 cg Exp $'
 ! !