PositionableStream.st
changeset 7742 936f337d9f2a
parent 7712 539e7a5c800a
child 8053 4d37ece7b9f7
--- a/PositionableStream.st	Mon Nov 10 15:55:20 2003 +0100
+++ b/PositionableStream.st	Tue Nov 11 09:39:01 2003 +0100
@@ -579,7 +579,7 @@
 
         "/ otherwise ask what should be done now and either
         "/ continue or abort the fileIn
-Transcript showCR:Screen current.
+
         redef ifTrue:[
             action := OptionBox 
                           request:(msg withCRs) 
@@ -1214,7 +1214,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.136 2003-10-28 19:56:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.137 2003-11-11 08:39:01 cg Exp $'
 ! !
 
 PositionableStream initialize!