anchor.diff:      end;
       if (lock.typ <> btLock) then
       begin
  -      result.Insert(0, JCBarrier(barBlockWrongType, lock, lock.id));
  +      result.Insert(0, JCBarrier(barBlockWrongType, lock));
         Exit();
       end;
       var lockRef: TBlk;
  
positive.code:         var closeTrack: TBlk;
          if (Blocks.GetBlkByID(trackZav, closeTrack) <> 0) then
          begin
            result.Insert(0, JCBarrier(barBlockNotExists, crossing, trackZav));
            Exit();
          end;
          if ((closeTrack.typ <> btTrack) and (closeTrack.typ <> btRT)) then
          begin
            result.Insert(0, JCBarrier(barBlockWrongType, crossing, trackZav));
            Exit();
          end;
        end;
  
negative.code:     end;
      if (railway.typ <> btRailway) then
      begin
        result.Insert(0, JCBarrier(barBlockWrongType, railway));
        Exit();
      end;
    end;
  