X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/66fc75f9dc1f2fe4e0f478fb76a14492f4ab1b82..36ee947888d0a2a0d0f47d3f89f035a5dc96931f:/btime.pas

diff --git a/btime.pas b/btime.pas
index c130144..ee7583b 100644
--- a/btime.pas
+++ b/btime.pas
@@ -410,7 +410,7 @@ begin
 
   result := f;
 
-  if (result < mmtime_lastresult) then result := mmtime_lastresult + 0.000001;
+  if (result < mmtime_lastresult) then result := mmtime_lastresult;
   mmtime_lastresult := result;
 end;