diff -r 340f80bcd892 -r f96538a5ea67 PeekableStream.st
--- a/PeekableStream.st	Fri Apr 18 21:14:56 2014 +0200
+++ b/PeekableStream.st	Fri Apr 18 21:15:52 2014 +0200
@@ -822,7 +822,9 @@
 nextMatching:matchBlock1 thenMatching:matchBlock2
     "read the next word. The first character must match matchBlock1,
      remaining characters must match matchBlock2.
-     Return a string containing those characters."
+     Return a string containing those characters.
+     Useful to read identifiers, where the first char is from a different
+     set than the remaining (letter vs. letterOrDigit)"
 
     |s c|
 
@@ -899,11 +901,11 @@
 !PeekableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.46 2014-04-18 19:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.47 2014-04-18 19:15:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.46 2014-04-18 19:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.47 2014-04-18 19:15:52 cg Exp $'
 ! !