NonPositionableExternalStream.st
changeset 593 19d568779cf7
parent 548 a4e2d5b5ac25
child 613 0af19c3594fc
--- a/NonPositionableExternalStream.st	Wed Nov 22 14:46:23 1995 +0100
+++ b/NonPositionableExternalStream.st	Wed Nov 22 16:08:54 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.22 1995-11-15 02:35:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.23 1995-11-22 15:08:51 cg Exp $'
 !
 
 documentation
@@ -132,7 +132,7 @@
 positionError
     "notify that this stream has no concept of a position"
 
-    self error:'stream as no concept of a position'
+    ^ PositionErrorSignal raiseRequestWith:self in:thisContext sender
 ! !
 
 !NonPositionableExternalStream methodsFor:'queries'!