--- a/Set.st	Wed May 18 09:58:32 2016 +0200
+++ b/Set.st	Wed May 18 10:42:16 2016 +0200
@@ -813,7 +813,6 @@
 ! !
 
 
-
 !Set methodsFor:'obsolete set operations'!
 
 + aCollection
@@ -1239,7 +1238,6 @@
     ^ tally
 ! !
 
-
 !Set methodsFor:'searching'!
 
 findFirst:aBlock ifNone:exceptionValue
@@ -1266,6 +1264,7 @@
 includes:anObject
     "return true if the argument anObject is in the receiver"
 
+    tally == 0 ifTrue:[^ false]. "/ quick reject if empty
     ^ (self find:(anObject ? NilEntry) ifAbsent:0) ~~ 0
 !