diff --git a/src/bloky/TBloky.pas b/src/bloky/TBloky.pas
index 6563ee91..863bed94 100644
--- a/src/bloky/TBloky.pas
+++ b/src/bloky/TBloky.pas
@@ -845,7 +845,7 @@ function TBlky.GetBlkWithSpr(spr:Integer):TBlksList;
// predpovidani soupravy na bloky v jizdni ceste
procedure TBlky.SprPrediction(Nav:TBlk);
-var Usek:TBlk;
+var Usek, startUsek:TBlk;
Trat:TBlk;
spr:Integer;
JC:TJC;
@@ -853,6 +853,7 @@ procedure TBlky.SprPrediction(Nav:TBlk);
try
// zjistime soupravu pred navestidlem
Usek := (Nav as TBlkSCom).UsekPred;
+ startUsek := Usek;
spr := (Nav as TBlkSCom).GetSoupravaIndex(usek);
if ((Nav as TBlkSCom).Navest > 0) then begin
@@ -870,6 +871,9 @@ procedure TBlky.SprPrediction(Nav:TBlk);
// zjistime posledni usek jizdni cesty
Blky.GetBlkByID(JC.data.Useky[JC.data.Useky.Count-1], Usek);
+ if (usek = startUsek) then
+ break; // ochrana proti JC na ovalu
+
if ((Usek.typ = _BLK_TU) and ((Usek as TBlkTU).InTrat > -1)) then
begin
// pokud je usek v trati, zmenime usek na usek na druhem konci trati
diff --git a/src/hJOPserver.dproj b/src/hJOPserver.dproj
index 1977290d..7b578a74 100644
--- a/src/hJOPserver.dproj
+++ b/src/hJOPserver.dproj
@@ -294,7 +294,7 @@
True
4
13
- 0
+ 1
0
False
False
@@ -307,7 +307,7 @@
Jan Horáček
hJOP technologicky server
- 4.13.0.0
+ 4.13.1.0
hJOPserver
Jan Horáček 2008-2018