debugging big!!!

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@512 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-07-28 17:43:01 +00:00
parent 056046f530
commit 50977a8f9f
1 changed files with 1 additions and 0 deletions
--- a/wst/trunk/library_protocol.pas
+++ b/wst/trunk/library_protocol.pas
@ -147,6 +147,7 @@ begin
    i := AResponse.Position;
    SetLength(s,AResponse.Size);
    AResponse.Read(s[1],AResponse.Size);
+    AResponse.Position := i;
    if IsConsole then
      WriteLn(s);
 {$ENDIF WST_DBG}