--- a/PositionableStream.st	Fri Nov 16 16:19:30 2001 +0100
+++ b/PositionableStream.st	Fri Nov 16 16:25:23 2001 +0100
@@ -685,7 +685,7 @@
 
         msg := msg bindWith:what.
 
-        sig == Object haltSignal ifTrue:[
+        sig == HaltInterrupt ifTrue:[
             sender := ex suspendedContext.
             msg := msg , ('\\in ' , sender receiver class name , '>>>' , sender selector) withCRs
         ].
@@ -756,7 +756,7 @@
     ^ lastValue
 
     "Modified: / 10.9.1999 / 16:54:01 / stefan"
-    "Modified: / 14.12.1999 / 15:00:53 / cg"
+    "Modified: / 16.11.2001 / 16:21:28 / cg"
 !
 
 fileInXMLNotifying:someone passChunk:passChunk
@@ -1079,6 +1079,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.103 2001-11-13 09:17:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.104 2001-11-16 15:25:23 cg Exp $'
 ! !
 PositionableStream initialize!