--- a/TextStream.st	Mon Mar 03 21:05:30 2003 +0100
+++ b/TextStream.st	Mon Mar 17 17:44:21 2003 +0100
@@ -149,7 +149,7 @@
     "change the emphasis; all followup elements are appended with
      that emphasis in effect"
 
-    position ~~ self class zeroPosition ifTrue:[
+    position ~~ ZeroPosition ifTrue:[
         currentEmphasis ~~ newEmphasis ifTrue:[
             self closeRun.
         ]
@@ -182,14 +182,11 @@
 !TextStream methodsFor:'private'!
 
 closeRun
-    |zeroPosition|
-
-    zeroPosition := self class zeroPosition.
-    position ~~ self class zeroPosition ifTrue:[
+    position ~~ ZeroPosition ifTrue:[
         runs isNil ifTrue:[
-            runs := RunArray new:position-zeroPosition withAll:currentEmphasis
+            runs := RunArray new:position-ZeroPosition withAll:currentEmphasis
         ] ifFalse:[
-            runs add:currentEmphasis withOccurrences:(position-zeroPosition-runs size)
+            runs add:currentEmphasis withOccurrences:(position-ZeroPosition-runs size)
         ]
     ]
 ! !
@@ -197,5 +194,5 @@
 !TextStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.6 2001-12-13 16:12:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TextStream.st,v 1.7 2003-03-17 16:44:21 cg Exp $'
 ! !