--- a/Set.st	Tue Feb 03 14:23:12 1998 +0100
+++ b/Set.st	Tue Feb 03 14:34:21 1998 +0100
@@ -247,6 +247,8 @@
 
     |index next|
 
+    oldObject isNil ifTrue:[^ exceptionBlock value].
+
     index := self find:oldObject ifAbsent:0.
     index == 0 ifTrue:[^ exceptionBlock value].
 
@@ -267,7 +269,7 @@
     ].
     ^ oldObject
 
-    "Modified: 29.1.1997 / 21:34:33 / cg"
+    "Modified: / 2.2.1998 / 23:17:27 / cg"
 !
 
 removeAll
@@ -782,6 +784,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.55 1998-02-02 16:27:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.56 1998-02-03 13:34:21 cg Exp $'
 ! !
 Set initialize!