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 }