>From 9bdf19f2184b9a1752df58c7ef888c8b06afe297 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <address@hidden>
Date: Mon, 21 Oct 2013 10:53:25 +0200
Subject: [PATCH] Print IP value in the error message

---
 ChangeLog             | 5 +++++
 kernel/ContextPart.st | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d291f9d..e70f8b9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-21  Gwenael Casaccio <address@hidden>
+
+	* kernel/ContextPart.st: Print the instruction pointer value in the 
+	exception message.
+
 2013-10-15  Gwenael Casaccio <address@hidden>
 
 	* kernel/ContextPart.st: Fix >>#currentLine, the previous
diff --git a/kernel/ContextPart.st b/kernel/ContextPart.st
index 55411c6..acccc48 100644
--- a/kernel/ContextPart.st
+++ b/kernel/ContextPart.st
@@ -251,7 +251,7 @@ methods that can be used in inspection or debugging.'>
         <category: 'debugging'>
         | res |
         res := self method sourceCodeMap at: self ip + 1.
-        ^ res = 0 ifTrue: [ self error: 'IP is not correct' ]
+        ^ res = 0 ifTrue: [ self error: 'IP(%1) is not correct' % {(self ip + 1) displayString} ]
                   ifFalse: [ res ]
     ]
 
-- 
1.8.3.2