--- a/RecursiveSeriesStream.st	Tue Nov 19 14:30:10 2019 +0100
+++ b/RecursiveSeriesStream.st	Tue Nov 19 14:30:18 2019 +0100
@@ -5,7 +5,7 @@
 "{ NameSpace: Smalltalk }"
 
 IteratorStream subclass:#RecursiveSeriesStream
-	instanceVariableNames:'lastValue'
+	instanceVariableNames:'lastValue endValue'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Streams'
@@ -90,6 +90,16 @@
 
 !RecursiveSeriesStream methodsFor:'accessing'!
 
+atEnd
+    ^ lastValue = endValue
+!
+
+endValue:something
+    "define a stop value"
+
+    endValue := something.
+!
+
 iterator:aOneArgBlock startValue:startValue
     iterator := aOneArgBlock.
     lastValue := startValue.