--- a/extensions.st	Sun Aug 18 12:57:01 2013 +0200
+++ b/extensions.st	Sun Aug 18 13:03:18 2013 +0200
@@ -1246,6 +1246,14 @@
      applies aBlock to each read element, and provides the results as elements to its reader."
 
     ^ CollectingReadStream on:self collecting:aBlock
+
+    "
+     |s s2|
+
+     s := 'hello world' readStream.
+     s2 := s collecting:[:ch | ch asUppercase].
+     s2 upToEnd.   
+    "
 ! !
 
 !Stream methodsFor:'stacked computing streams'!
@@ -1255,11 +1263,19 @@
      but only provides elements for which aBlock returns true to its reader."
 
     ^ SelectingReadStream on:self selecting:aBlock
+
+    "
+     |s s2|
+
+     s := 'hello world' readStream.
+     s2 := s selecting:[:ch | ch isVowel].
+     s2 upToEnd.
+    "
 ! !
 
 !stx_libbasic2 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.25 2013-06-20 13:52:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/extensions.st,v 1.26 2013-08-18 11:03:18 cg Exp $'
 ! !