--- a/Stream.st	Fri Sep 07 18:57:01 2012 +0100
+++ b/Stream.st	Thu Sep 13 09:54:28 2012 +0100
@@ -376,6 +376,23 @@
 
     "Created: 3.6.1996 / 17:00:03 / cg"
     "Modified: 3.6.1996 / 17:15:38 / cg"
+!
+
+withEmphasis:anEmphasis do:aBlock
+    "evaluate aBlock while my emphasis has been changed to anEmphasis.
+     Emphasis is ignored here, but implemented in some subclasses (PrinterStream, TextCollector etc.)."
+
+    |oldEmphasis|
+
+    oldEmphasis := self emphasis.
+    [
+        self emphasis:anEmphasis.
+        aBlock value
+    ] ensure:[
+        self emphasis:oldEmphasis.
+    ].
+
+    "Created: / 06-09-2012 / 16:12:55 / cg"
 ! !
 
 !Stream methodsFor:'enumerating'!
@@ -3249,15 +3266,15 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.192 2012/08/05 16:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.193 2012/09/06 14:19:01 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.192 2012/08/05 16:38:41 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Stream.st,v 1.193 2012/09/06 14:19:01 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Stream.st 10844 2012-09-07 16:24:32Z vranyj1 $'
+    ^ '$Id: Stream.st 10847 2012-09-13 08:54:28Z vranyj1 $'
 ! !
 
 Stream initialize!