Preserve the receiver of the exception and not use class binding of t…

…he method
zweidenker · Jun 22, 2023 · 9637234 · 9637234
1 parent cfdc16b
commit 9637234
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/source/SnapDump-Core/SDException.class.st b/source/SnapDump-Core/SDException.class.st
@@ -105,9 +105,12 @@ SDException >> initializeExceptionProperties [
 ]
 
 { #category : #initialization }
-SDException >> initializeFromClassName: aName method: aSmalltalkMethod [
+SDException >> initializeFromClassName: aName receiver: aReceiver method: aSmalltalkMethod [
+
+	exceptionSignalerClassName := aReceiver 
+		ifNotNil: [ aReceiver class name asString ]
+		ifNil: [ aSmalltalkMethod classBinding value asString ].
 
-	exceptionSignalerClassName := aSmalltalkMethod classBinding value asString.
 	exceptionSignalerSelector :=  aSmalltalkMethod selector asString.
 	exceptionClassName := aName
 ]