From ead7e67fc1bdd79464623f56b2eb8eb405834e51 Mon Sep 17 00:00:00 2001
From: Vincent Geddes <vincent.geddes@gmail.com>
Date: Sun, 10 Aug 2008 02:29:12 +0200
Subject: [PATCH] Print methodClass of method when printing Tracebacks

---
 st/CompiledMethod.st | 8 ++++++++
 st/ContextPart.st    | 5 ++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/st/CompiledMethod.st b/st/CompiledMethod.st
index 792e82e..874193c 100644
--- a/st/CompiledMethod.st
+++ b/st/CompiledMethod.st
@@ -17,6 +17,14 @@ CompiledMethod method!
 selector
 	^ selector!
 
+
+
+CompiledMethod method!
+methodClass
+	^ literals isNil
+		ifTrue: [nil]
+		ifFalse: [literals at: literals size]!
+
 "header"
 
 CompiledMethod method!
diff --git a/st/ContextPart.st b/st/ContextPart.st
index e1c1af8..6ad8c3a 100644
--- a/st/ContextPart.st
+++ b/st/ContextPart.st
@@ -65,12 +65,15 @@ selector
 
 MethodContext method!
 printOn: aStream
-	| class selector |
+	| class selector methodClass |
 	
 	class := self receiver class.
+    methodClass := self method methodClass.
 	selector := self selector.
 
 	aStream nextPutAll: class name.
+	(methodClass isNotNil and: [methodClass ~~ class])
+		ifTrue: [aStream nextPutAll: '(', methodClass name, ')'].
 	aStream nextPutAll: '>>'.
 	aStream nextPutAll: selector!
 
-- 
2.11.4.GIT