--- a/ActorStream.st	Mon Aug 26 09:30:57 2019 +0200
+++ b/ActorStream.st	Mon Aug 26 10:10:18 2019 +0200
@@ -101,7 +101,8 @@
      something as argument"
 
     nextPutBlock notNil ifTrue:[  
-        ^ nextPutBlock value:aCharacter
+        nextPutBlock value:aCharacter.
+        ^ self.
     ].
     nextPutAllBlock notNil ifTrue:[    
         "/ fallBack to nextPutAll.
@@ -131,15 +132,17 @@
      If there is no nextPutAllBlock, nextPuts will be used (as inherited)"
 
     nextPutAllBlock notNil ifTrue:[    
-        ^ nextPutAllBlock value:something
+        nextPutAllBlock value:something.
+    ] ifFalse:[
+        super nextPutAll:something
     ].
-    super nextPutAll:something
 !
 
 nextPutAll:count from:buffer startingAt:start
     "put some elements of something onto the stream by evaluating
      the nextPutAllBlock with something as argument.
-     If there is no nextPutAllBlock, nextPuts will be used (as inherited)"
+     If there is no nextPutAllBlock, individual nextPuts will be used (as inherited).
+     Answer the number of elements that were appended."
 
     nextPutAllBlock notNil ifTrue:[    
         nextPutAllBlock value:(buffer copyFrom:start to:start+count-1).