From 5698d47ad31cb26889fcb3a84b058b2e0b75b864 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Thu, 29 Jul 2021 21:35:00 +0200
Subject: [PATCH] Adding manually pc: as pc := anInteger

---
 src/Kernel/Context.class.st | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Kernel/Context.class.st b/src/Kernel/Context.class.st
index 769dd4d1eb2..acc7c9bc35a 100644
--- a/src/Kernel/Context.class.st
+++ b/src/Kernel/Context.class.st
@@ -280,6 +280,11 @@ Context >> activeHome [
 	^self sender findContextSuchThat: [:ctxt | ctxt = methodReturnContext]
 ]
 
+{ #category : #accessing }
+Context >> pc: anInteger [ 
+	pc := anInteger
+]
+
 { #category : #accessing }
 Context >> activeOuterContext [
 	"If executing closure, search senders for the activation in which the receiver's