X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e14f985630dc9b0edad92d591fbede30928cda37..1066f857936e27fbf24d6b96b5be7703a2c0b0bf:/lcore.pas

diff --git a/lcore.pas b/lcore.pas
index 6effe0e..4be20f4 100755
--- a/lcore.pas
+++ b/lcore.pas
@@ -485,7 +485,10 @@ var
 //  fdstestr : fdset;
 //  fdstestw : fdset;
 begin
-  if state <> wsconnected then exit;
+  if state <> wsconnected then begin
+    result := -1;
+    exit;
+  end;
 
   lensent := sendq.get(data,packetbasesize*2);
   if assigned(data) then result := myfdwrite(fdhandleout,data^,lensent) else result := 0;