--- a/Bag.st	Thu Jan 22 21:24:47 2009 +0100
+++ b/Bag.st	Thu Jan 22 21:25:33 2009 +0100
@@ -229,7 +229,7 @@
 
     |accu|
 
-    self emptyCheck.
+    self isEmpty ifTrue:[ 0 ].
 
     accu := nil.
     self 
@@ -398,5 +398,5 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.36 2009-01-19 12:17:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.37 2009-01-22 20:25:33 cg Exp $'
 ! !