--- a/Set.st	Tue Apr 09 22:47:05 1996 +0200
+++ b/Set.st	Tue Apr 09 22:47:46 1996 +0200
@@ -183,8 +183,8 @@
 "/
 "/    index := self find:oldObject ifAbsent:[^ exceptionBlock value].
 "/
-"/  but cheaper, since there will be no new block to create
-"/  (remember: [0] blocks are super-cheap)
+"/  but cheaper, since it avoids a block creation,
+"/  making the good case a bit faster.
 
     index := self find:oldObject ifAbsent:0.
     index == 0 ifTrue:[^ exceptionBlock value].
@@ -648,6 +648,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.32 1996-03-26 20:44:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.33 1996-04-09 20:47:46 cg Exp $'
 ! !
 Set initialize!