--- a/PosStream.st	Tue Feb 20 20:31:08 1996 +0100
+++ b/PosStream.st	Tue Feb 20 20:35:01 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 PeekableStream subclass:#PositionableStream
-	 instanceVariableNames:'collection position readLimit writeLimit'
-	 classVariableNames:'ErrorDuringFileInSignal ChunkSeparator'
-	 poolDictionaries:''
-	 category:'Streams'
+	instanceVariableNames:'collection position readLimit writeLimit'
+	classVariableNames:'ErrorDuringFileInSignal ChunkSeparator'
+	poolDictionaries:''
+	category:'Streams'
 !
 
 !PositionableStream class methodsFor:'documentation'!
@@ -408,44 +408,46 @@
      catch any errors during fileIn 
      - offer debug/abort/continue choice
     "
-    Object errorSignal handle:[:ex |
-	|action what sender|
+    ErrorSignal handle:[:ex |
+        |action what sender|
 
-	what := ex errorString.
-	what isNil ifTrue:[
-	    what := ex signal notifierString.
-	].
+        what := ex errorString.
+        what isNil ifTrue:[
+            what := ex signal notifierString.
+        ].
 
-	"handle the case where no GUI has been built in,
-	 just abort the fileIn with a notification"
+        "handle the case where no GUI has been built in,
+         just abort the fileIn with a notification"
 
-	Display isNil ifTrue:[
-	    sender := ex suspendedContext sender.
-	    self notify:(what , 
-			 ' in ' , sender receiver class name ,
-			 '>>>' , sender selector).
-	    ex return
-	].
+        Display isNil ifTrue:[
+            sender := ex suspendedContext sender.
+            self notify:(what , 
+                         ' in ' , sender receiver class name ,
+                         '>>>' , sender selector).
+            ex return
+        ].
 
-	"otherwise ask what should be done now and either
-	 continue or abort the fileIn"
+        "otherwise ask what should be done now and either
+         continue or abort the fileIn"
 
-	action := self askForDebug:('error in fileIn: ' , what) withCRs.
-	action == #continue ifTrue:[
-	    ex proceed
-	].
-	action == #abort ifTrue:[
-	    ex return
-	].
+        action := self askForDebug:('error in fileIn: ' , what) withCRs.
+        action == #continue ifTrue:[
+            ex proceed
+        ].
+        action == #abort ifTrue:[
+            ex return
+        ].
 "/        Debugger enter:ex suspendedContext
-	(ex signal) enterDebuggerWith:ex message:what.
-	ex reject
+        (ex signal) enterDebuggerWith:ex message:what.
+        ex reject
     ] do:[
-	[self atEnd] whileFalse:[
-	    lastValue := self fileInNextChunkNotifying:someone passChunk:passChunk
-	]
+        [self atEnd] whileFalse:[
+            lastValue := self fileInNextChunkNotifying:someone passChunk:passChunk
+        ]
     ].
     ^ lastValue
+
+    "Modified: 20.2.1996 / 20:24:49 / cg"
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -555,6 +557,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.38 1996-01-17 12:27:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.39 1996-02-20 19:35:01 cg Exp $'
 ! !
 PositionableStream initialize!