anchor.diff:    // send data to time slider
     jsonTSData := jsonTimesliderData;
     aClient.signalString('{"type":"timesliderEvents","payload":{"setEvents":['+jsonTSData+']}}');
  +  aClient.signalString('{"type":"timesliderEvents","payload":{"setCurrentTime":"'+FormatDateTime(publisherDateTimeFormat, fCurrentTime)+'"}}');
   end;
   
   procedure TSantosLayer.HandleFormResult(aFormResult: TJSONObject);
  
positive.code: 
    TMonitor.Enter(fScenario.clients);
    try
      for client in scenario.clients do
      begin
        // send data to time slider
        jsonTSData := jsonTimesliderData;
  
negative.code:   J: Integer;
    stop: TBusStop;
    ssid: string;
    client: TClient;
  begin
    time := StrToDateTime(aTime, isoDateTimeFormatSettings);
  
    fCurrentTime := time;
    TMonitor.Enter(fScenario.clients);
    try
      for client in fScenario.clients do
      begin
        // send new time to all other clients
        if Client<>aClient then
          client.signalString('{"type":"timesliderEvents","payload":{"setCurrentTime":"'+FormatDateTime(publisherDateTimeFormat, fCurrentTime)+'"}}');
      end;
    finally
      TMonitor.Exit(fScenario.clients);
    end;
  
    stopID := '';
    found := false;
    iNearest := -1;
  