--- a/AbstractBackgroundJob.st	Fri Sep 04 15:15:57 2015 +0200
+++ b/AbstractBackgroundJob.st	Tue Sep 22 10:14:24 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
 	      All Rights Reserved
@@ -30,7 +28,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#AbstractBackgroundJob
-	instanceVariableNames:'name job priority thread running isDebuggerJob'
+	instanceVariableNames:'name job priority thread running isDebuggerJob initiatingThread'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Support'
@@ -144,6 +142,14 @@
 
 !AbstractBackgroundJob methodsFor:'accessing'!
 
+initiatingThread
+    ^ initiatingThread
+!
+
+initiatingThread:something
+    initiatingThread := something.
+!
+
 isDebuggerJob
     ^ isDebuggerJob ? false
 !