--- a/PositionableStream.st Fri Apr 11 15:32:14 2003 +0200
+++ b/PositionableStream.st Fri Apr 11 18:47:17 2003 +0200
@@ -707,7 +707,7 @@
]
].
- what := ex errorString.
+ what := ex description.
what isNil ifTrue:[
what := ex signal notifierString.
].
@@ -785,7 +785,7 @@
].
action == #debug ifTrue:[
Debugger enter:ex suspendedContext
- withMessage:ex errorString
+ withMessage:ex description
mayProceed:true.
ex proceedWith:proceedValue
].
@@ -1193,7 +1193,7 @@
!PositionableStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.125 2003-03-17 16:46:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.126 2003-04-11 16:47:17 stefan Exp $'
! !
PositionableStream initialize!