From 43a1f3a0eda63b26032b1bd97af21b433e841c05 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 22 Sep 2013 20:53:14 -0400
Subject: [PATCH] debugging on

---
 mdl/m_tcp_client.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}