--- a/Stream.st	Sun Apr 27 17:40:18 2003 +0200
+++ b/Stream.st	Mon Apr 28 12:16:57 2003 +0200
@@ -1729,19 +1729,15 @@
     "Modified: / 5.3.1998 / 13:45:07 / cg"
 !
 
-skip:count 
-    "skip count objects, return the receiver"
-
-    |n "{ Class: SmallInteger }"|
-
-    n := count.
+skip:numberToSkip 
+    "skip numberToSkip objects, return the receiver"
 
     "dont know how to unread ..."
-    n < 0 ifTrue:[
-	PositionErrorSignal raiseRequest.
-	^ self
+    numberToSkip < 0 ifTrue:[
+        PositionErrorSignal raiseRequest.
+        ^ self
     ].
-    n timesRepeat:self next
+    numberToSkip timesRepeat:self next
 
     "
      |s|
@@ -2536,7 +2532,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.110 2003-04-10 14:45:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.111 2003-04-28 10:16:57 cg Exp $'
 ! !
 
 Stream initialize!