PositionableStream.st
changeset 3580 47534257f9e5
parent 3386 735c8e814726
child 3584 099a64bc9b63
--- a/PositionableStream.st	Mon Jun 15 17:23:42 1998 +0200
+++ b/PositionableStream.st	Mon Jun 15 18:03:52 1998 +0200
@@ -494,6 +494,12 @@
                 ErrorSignal handle:[:ex |
                     |action what sender msg param oldPackage newPackage|
 
+                    ex signal == Signal noHandlerSignal ifTrue:[
+                        ex parameter rejected ifTrue:[
+                            ex reject
+                        ]
+                    ].
+
                     "/ for your convenience ...
                     ex signal == methodRedefinitionSignal ifTrue:[
                         param := ex parameter. "/ an association: oldMethod -> newMethod
@@ -789,6 +795,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.63 1998-04-21 16:55:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.64 1998-06-15 16:03:52 cg Exp $'
 ! !
 PositionableStream initialize!