--- a/Collection.st	Tue Jan 31 23:10:09 2006 +0100
+++ b/Collection.st	Tue Jan 31 23:27:10 2006 +0100
@@ -2167,6 +2167,33 @@
      since not enough elements are in the collection"
 
     ^ NotEnoughElementsSignal raise
+!
+
+showWhereWeCameFrom
+    |con|
+
+    con := thisContext sender sender.
+    ('         from ' , con printString) errorPrintCR.
+    con := con sender.
+    con notNil ifTrue:[
+        ('         from ' , con printString) errorPrintCR.
+        con := con sender.
+        con notNil ifTrue:[
+            ('         from ' , con printString) errorPrintCR.
+            con receiver isCollection ifTrue:[
+                con := con sender.
+                con notNil ifTrue:[
+                    ('         from ' , con printString) errorPrintCR.
+                    con receiver isCollection ifTrue:[
+                        con := con sender.
+                        con notNil ifTrue:[
+                            ('         from ' , con printString) errorPrintCR.
+                        ].
+                    ].
+                ].
+            ].
+        ]
+    ].
 ! !
 
 !Collection methodsFor:'growing'!
@@ -2892,7 +2919,7 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.182 2006-01-27 14:53:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.183 2006-01-31 22:27:10 cg Exp $'
 ! !
 
 Collection initialize!