anchor.diff:  
   function TUSChart.getJSON: string;
   begin
  -  if fChanged or not fChanged then    //to do remove the not fChanged
  +  if fChanged or not fChanged then    // todo: remove the not fChanged
     begin
       TMonitor.Enter(Self);
       try
  
positive.code: unit PublishServerUS;
  
  interface
  
  
negative.code:   end;
    if clientMessage <> '' then
    begin
      clientMessage := '{"type":"updatechart", "payload":[' + clientMessage + ']}';
      fScenario.forEachSubscriber<TClient>(procedure (aClient: TClient)
        begin
          aClient.signalString(clientMessage);
  