Using outerContext instead of outerMostContext

Author: StevenCostiou

src/Sindarin/SindarinDebugger.class.st

@@ -46,12 +46,13 @@ SindarinDebugger >> assignmentVariableName [
 SindarinDebugger >> canStillExecute: aProgramNode [
 	"returns true if the last pc mapped to aProgramNode is greater than `self pc` in the right context "
 
-	| lastPcForNode rightContext |
+	| lastPcForNode rightContext outerContext |
 	rightContext := self context.
+	outerContext := rightContext outerContext ifNil: [ rightContext ].
 
 	[
-	rightContext == rightContext outerMostContext or: [
-		rightContext method ast allChildren identityIncludes: aProgramNode ] ]
+		rightContext == outerContext or: [
+			rightContext method ast allChildren identityIncludes: aProgramNode ] ]
 		whileFalse: [ rightContext := rightContext sender ].
 
 	lastPcForNode := (rightContext method ast lastPcForNode: aProgramNode)

src/Sindarin/TSindarin.trait.st

@@ -195,7 +195,7 @@ TSindarin >> outerMostContextOf: aContext [
 	oldContext := nil.
 	[currentContext ~= oldContext] whileTrue: [ 
 		oldContext := currentContext.
-		currentContext := currentContext outerMostContext ].
+		currentContext := currentContext outerContext ifNil:[currentContext]].
 	^ currentContext
 ]