--- a/NPExtStr.st	Sat Feb 18 02:42:00 1995 +0100
+++ b/NPExtStr.st	Sat Feb 18 19:30:27 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.12 1995-02-02 12:21:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.13 1995-02-18 18:29:35 claus Exp $
 '!
 
 !NonPositionableExternalStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.12 1995-02-02 12:21:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/NPExtStr.st,v 1.13 1995-02-18 18:29:35 claus Exp $
 "
 !
 
@@ -135,6 +135,38 @@
     super storeOn:aStream
 ! !
 
+!NonPositionableExternalStream methodsFor:'error handling'!
+
+positionError
+    "notify that this stream has no concept of a position"
+
+    self error:'stream as no concept of a position'
+! !
+
+!NonPositionableExternalStream methodsFor:'positioning'!
+
+position
+    "catch position - there is none here"
+
+    ^ self positionError
+!
+
+position:aPosition
+    "catch position - there is none here"
+
+    ^ self positionError
+!
+
+skip:numberToSkip
+    "skip count objects, return the receiver"
+
+    "dont know how to unread ..."
+    numberToSkip < 0 ifTrue:[
+	^ self error:'stream is not positionable'
+    ].
+    numberToSkip timesRepeat:self next
+! !
+
 !NonPositionableExternalStream methodsFor:'private'!
 
 initializeForStdin