From 791f498b06ebeed6cf3d08af49e4315e4753abbf Mon Sep 17 00:00:00 2001
From: mgaertner <mgaertner@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 18 Apr 2013 23:24:25 +0000
Subject: [PATCH] mtprocs: fixed fpc 2.7.1

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2727 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/multithreadprocs/mtprocs.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/multithreadprocs/mtprocs.pas b/components/multithreadprocs/mtprocs.pas
index 768ed87aa..94eb3c4e0 100644
--- a/components/multithreadprocs/mtprocs.pas
+++ b/components/multithreadprocs/mtprocs.pas
@@ -341,7 +341,7 @@ var
   ok: Boolean;
   E: Exception;
 begin
-  CurrentThread:=Self;
+  MTProcs.CurrentThread:=Self;
   aPool:=Item.Group.Pool;
   ok:=false;
   try