--- a/Smalltalk.st	Mon Feb 02 17:22:56 1998 +0100
+++ b/Smalltalk.st	Mon Feb 02 17:26:11 1998 +0100
@@ -1602,6 +1602,20 @@
     ^ super references:anObject
 !
 
+referencesAny:aCollection
+    "redefined, since the references are only kept in the VM's symbol table"
+
+    self keysAndValuesDo:[:key :val |
+        aCollection do:[:anObject |
+            (key == anObject) ifTrue:[^ true].
+            (val == anObject ) ifTrue:[^ true].
+        ]
+    ].
+    ^ super referencesAny:aCollection
+
+    "Created: / 2.2.1998 / 16:01:20 / cg"
+!
+
 referencesDerivedInstanceOf:aClass
     "redefined, since the references are only kept in the VM's symbol table"
 
@@ -4111,5 +4125,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.268 1998-01-12 13:14:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.269 1998-02-02 16:26:11 cg Exp $'
 ! !