From e1d2ad094b54a229736217c27bb3306edf58ae1c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Mussche?= <andre.mussche@gmail.com>
Date: Fri, 17 Jan 2014 15:30:09 +0100
Subject: [PATCH] EReadTimeout fixed

---
 IdIOHandlerWebsocket.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/IdIOHandlerWebsocket.pas b/IdIOHandlerWebsocket.pas
index 1f3fc74..fa8e431 100644
--- a/IdIOHandlerWebsocket.pas
+++ b/IdIOHandlerWebsocket.pas
@@ -545,6 +545,8 @@ end;
 
 function TIdIOHandlerWebsocket.Readable(AMSec: Integer): Boolean;
 begin
+  if FWSInputBuffer.Size > 0 then Exit(True);
+
   if not FSelectLock.TryEnter then Exit(False);
   try
     Result := inherited Readable(AMSec);