--- a/Stream.st	Fri Apr 13 00:04:07 2012 +0100
+++ b/Stream.st	Fri Apr 13 14:18:13 2012 +0100
@@ -196,7 +196,6 @@
 
 
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -2572,10 +2571,24 @@
     ^ self subclassResponsibility
 !
 
+isEmptyOrNil
+    "return true, if the contents of the stream is empty
+     (we already know, that we are not nil)"
+
+    ^ self isEmpty
+!
+
 notEmpty
     "return true, if the contents of the stream is not empty"
 
     ^ self isEmpty not
+!
+
+notEmptyOrNil
+    "return true, if the contents of the stream is empty
+     (we already know, that we are not nil)"
+
+    ^ self isEmpty not
 ! !
 
 !Stream methodsFor:'visiting'!
@@ -3217,15 +3230,15 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.189 2011/05/30 08:56:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.190 2012/04/05 09:58:52 stefan Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.189 2011/05/30 08:56:49 stefan Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.190 2012/04/05 09:58:52 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: Stream.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Id: Stream.st 10804 2012-04-13 13:18:13Z vranyj1 $'
 ! !
 
 Stream initialize!