From b7f07f8144452a201ee4f70250c2d0f60b9799e5 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Tue, 30 Sep 2008 13:20:42 +0000
Subject: [PATCH]  * If InitDebugClient fails, do not try to write a
 debug-message

git-svn-id: trunk@11843 -
---
 packages/fcl-process/src/dbugintf.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-process/src/dbugintf.pp b/packages/fcl-process/src/dbugintf.pp
index d15cf7b0ed..45e8d71848 100644
--- a/packages/fcl-process/src/dbugintf.pp
+++ b/packages/fcl-process/src/dbugintf.pp
@@ -86,7 +86,7 @@ begin
   if DebugDisabled then exit;
   try
     If (DebugClient=Nil) then
-      InitDebugClient;
+      if InitDebugClient = false then exit;
     if (Indent>0) then
       Msg.Msg:=StringOfChar(' ',Indent)+Msg.Msg;
     WriteMessage(Msg);