--- a/VMData.st	Mon Aug 15 17:30:36 2016 +0100
+++ b/VMData.st	Mon Aug 22 23:46:22 2016 +0100
@@ -28,7 +28,7 @@
 	classVariableNames:'ADDR___VMDATA__ ADDR___stackTop__ ADDR___newNextPtr__
 		ADDR___newEndPtr__ ADDR___newSpace__ ADDR___thisContext ADDR_true
 		ADDR_false ADDR_Float ADDR_SmallInteger ADDR_UndefinedObject
-		ADDR_Context ADDR_BlockContext'
+		ADDR_Context ADDR_BlockContext ADDR_InterruptPending'
 	poolDictionaries:'VMOffsets'
 	category:'System-Compiler-Interface'
 !
@@ -87,6 +87,10 @@
     ADDR_Context := ADDR___VMDATA__ +  OFFS_Context.
     ADDR_BlockContext := ADDR___VMDATA__ + OFFS_BlockContext.
 
+%{
+    @global(VMData:ADDR_InterruptPending) = __MKINT(&InterruptPending);	
+%}.
+
     "Created: / 25-01-2016 / 14:45:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !