--- a/PositionableStream.st	Fri Dec 29 22:02:26 2000 +0100
+++ b/PositionableStream.st	Sat Dec 30 23:21:12 2000 +0100
@@ -842,7 +842,9 @@
 skip:numberToSkip
     "skip the next numberToSkip elements"
 
-    self position:(self position + numberToSkip)
+    numberToSkip ~~ 0 ifTrue:[
+        self position:(self position + numberToSkip)
+    ]
 !
 
 skipThroughAll:aCollection
@@ -1047,6 +1049,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.97 2000-12-13 19:12:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.98 2000-12-30 22:21:12 cg Exp $'
 ! !
 PositionableStream initialize!