--- a/PositionableStream.st	Thu Nov 07 21:03:04 1996 +0100
+++ b/PositionableStream.st	Thu Nov 07 21:04:15 1996 +0100
@@ -442,7 +442,18 @@
          - offer debug/abort/continue choice
         "
         ErrorSignal handle:[:ex |
-            |action what sender|
+            |action what sender msg param oldPackage newPackage|
+
+            "/ for your convenience ...
+            ex signal == Class methodRedefinitionSignal ifTrue:[
+                param := ex parameter. "/ an association: oldMethod -> newMethod
+                oldPackage := param key package.
+                newPackage := param value package.
+                msg := 'trying to overwrite method:\\    %1\\in package ''' 
+                       , oldPackage , ''' with method from package ''' , newPackage , ''''
+            ] ifFalse:[
+                msg := 'error in fileIn: %1'
+            ].
 
             what := ex errorString.
             what isNil ifTrue:[
@@ -463,7 +474,7 @@
             "otherwise ask what should be done now and either
              continue or abort the fileIn"
 
-            action := self askForDebug:('error in fileIn: ' , what) withCRs.
+            action := self askForDebug:(msg bindWith:what) withCRs.
             action == #continue ifTrue:[
                 ex proceed
             ].
@@ -481,7 +492,7 @@
     ].
     ^ lastValue
 
-    "Modified: 5.11.1996 / 22:55:42 / cg"
+    "Modified: 7.11.1996 / 20:54:52 / cg"
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -661,6 +672,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.46 1996-11-05 22:24:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.47 1996-11-07 20:04:15 cg Exp $'
 ! !
 PositionableStream initialize!