--- a/Interval.st	Tue Sep 08 17:35:04 2009 +0200
+++ b/Interval.st	Tue Sep 08 17:36:02 2009 +0200
@@ -545,6 +545,7 @@
     "return a new interval containing all elements of the receiver, 
      which are also contained in the argument collection"
 
+    "/ could be much more intelligent here...
     aCollection class == Interval ifTrue:[
         aCollection step = step ifTrue:[
             step = 1 ifTrue:[
@@ -565,6 +566,7 @@
      (1 to:10) intersect:(11 to:20)      
      (1 to:10) intersect:(10 to:20)      
      (4 to:20) intersect:(1 to:10)      
+     (4 to:20) intersect:(1 to:10 by:2)      
     "
 ! !
 
@@ -683,5 +685,5 @@
 !Interval class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.50 2009-09-08 15:35:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Interval.st,v 1.51 2009-09-08 15:36:02 cg Exp $'
 ! !