--- a/WriteStream.st	Thu Mar 26 17:21:01 2015 +0100
+++ b/WriteStream.st	Thu Mar 26 17:21:15 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -196,6 +198,13 @@
 
     ((index0Based > collection size) or:[index0Based < 0]) ifTrue: [^ self positionError].
     position := index0Based
+!
+
+skip:count
+    "redefined to allow positioning back over already written characters"
+
+    self assert:count < 0.
+    self position:(self position + count).
 ! !
 
 !WriteStream methodsFor:'private'!
@@ -636,10 +645,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.94 2015-03-13 11:27:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.95 2015-03-26 16:21:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.94 2015-03-13 11:27:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.95 2015-03-26 16:21:15 cg Exp $'
 ! !