diff --git a/mdl/m_tcp_client.pas b/mdl/m_tcp_client.pas
index df5121c..a2e5cb8 100644
--- a/mdl/m_tcp_client.pas
+++ b/mdl/m_tcp_client.pas
@@ -68,7 +68,7 @@ Begin
 
   If Client.FSocketHandle = -1 Then Exit;
 
-//  WriteLn ('DEBUG SENT ' + Str);
+  WriteLn ('DEBUG SENT ' + Str);
 
   Client.PurgeInputData(1);
 
@@ -91,7 +91,7 @@ Begin
       ResponseType := strS2I(Copy(ResponseStr, 1, 3));
       Result       := ResponseType;
 
-//       WriteLn ('DEBUG RECV ' + ResponseStr);
+       WriteLn ('DEBUG RECV ' + ResponseStr);
 
       If ResponseStr[4] = '-' Then Begin
         {$IFDEF USESTRINGLIST}