--- a/Iterator.st	Thu Mar 15 11:19:48 2007 +0100
+++ b/Iterator.st	Thu Mar 15 16:24:53 2007 +0100
@@ -376,6 +376,12 @@
 
 !Iterator methodsFor:'queries'!
 
+isEmpty
+    ^ false
+
+    "Created: / 15-03-2007 / 16:23:48 / cg"
+!
+
 size
     self shouldNotImplement
 
@@ -385,5 +391,5 @@
 !Iterator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.18 2006-10-06 12:37:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.19 2007-03-15 15:24:53 cg Exp $'
 ! !