X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/e2488d880e54b1b938409d3870c28ea952c6d51a..7b89bae75911ccee6bfd92262960f325f1995072:/lcoreselect.pas?ds=sidebyside

diff --git a/lcoreselect.pas b/lcoreselect.pas
index a20a55b..ad81600 100644
--- a/lcoreselect.pas
+++ b/lcoreselect.pas
@@ -190,7 +190,7 @@ begin
     prepsigpipe;
   {$endif}
   selectresult := select(maxs+1,@fdsr,@fdsw,nil,0);
-  while (selectresult>0) or assigned(firsttask) or assigned(currenttask) do begin;
+  while (selectresult>0) or assigned(firsttask) do begin;
 
     processtasks;
     processtimers;