--- a/LoggingStream.st	Thu May 29 12:39:51 2014 +0200
+++ b/LoggingStream.st	Thu May 29 12:59:23 2014 +0200
@@ -125,10 +125,30 @@
     loggedStream nextPutAll:aCollection.
 !
 
+peek
+    ^ loggedStream peek
+!
+
+peekOrNil
+    ^ loggedStream peekOrNil
+!
+
 readWait
     ^ loggedStream readWait.
 !
 
+skipSeparators
+    |ch|
+
+    [
+        (ch := loggedStream peekOrNil) notNil
+        and:[ch isSeparator]
+    ] whileTrue:[
+        self next.
+    ].
+    ^ ch
+!
+
 upToEnd
     |els|
 
@@ -140,10 +160,10 @@
 !LoggingStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.6 2014-05-29 10:39:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.7 2014-05-29 10:59:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.6 2014-05-29 10:39:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LoggingStream.st,v 1.7 2014-05-29 10:59:23 cg Exp $'
 ! !