anchor.diff:  begin
     if Self = nil then Exit;
   
  -  fCriticalSection.Enter;
  +  fSaveCS.Enter;
   end;
   
   
  
positive.code: 
  destructor TKMSavePointCollection.Destroy();
  begin
    Clear;
    fSavePoints.Free; // TKMList will free all objects of the list
    fCriticalSection.Free;
  
    inherited;
  end;
  
negative.code: begin
    if Self = nil then Exit;
  
    fSaveCS.Leave;
  end;
  
  
  