--- a/Set.st	Mon May 13 11:16:35 2002 +0200
+++ b/Set.st	Mon May 13 11:30:46 2002 +0200
@@ -775,7 +775,19 @@
 
     "/ self elementBoundError.
 
+    |con|
+
     'Set [warning]: nil is not a valid element - will be an error in later versions' errorPrintCR.
+    con := thisContext 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.
+        ]
+    ].
 !
 
 keyArray
@@ -1123,6 +1135,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.76 2002-05-02 09:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.77 2002-05-13 09:30:46 cg Exp $'
 ! !
 Set initialize!