From 62d0fa4431462173c37904acee9f231b715eec1d Mon Sep 17 00:00:00 2001
From: Yann Papouin <yann.papouin@gmail.com>
Date: Mon, 7 Dec 2020 09:31:18 +0100
Subject: [PATCH] fix invalid error about task single monitor (fix #154)

---
 OtlTaskControl.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/OtlTaskControl.pas b/OtlTaskControl.pas
index c660d5f1..ba9009e8 100644
--- a/OtlTaskControl.pas
+++ b/OtlTaskControl.pas
@@ -3852,7 +3852,8 @@ function TOmniTaskControl.TerminateWhen(token: IOmniCancellationToken): IOmniTas
 function TOmniTaskControl.Unobserved: IOmniTaskControl;
 begin
   { TODO 1 -oPrimoz Gabrijelcic : reimplement without the internal monitor }
-  CreateInternalMonitor;
+  if not assigned(otcSharedInfo.Monitor) then
+    CreateInternalMonitor;
   Result := Self;
 end; { TOmniTaskControl.Unobserved }