Objetos no borrados tras usar MatSerSet

[Víctor de Buen Remiro]

El siguiente código TOL produce una pérdida de 7 objetos en cada iteración

Real maxIter = 10;
Real iter = 1;
Real nObj1 = ?;
Real nObj2 = ?;
Real lostObjects = ?;

Real nObj1 := Copy(NObject);
WriteLn("nObj1="<<nObj1);

Real While(iter<=maxIter, {
  Set dates = [[y2010m01d01,y2010m01d02,y2010m01d03]];
  Matrix data = Row(1,2,3);
  TimeSet tms = DatesOfSet(dates);
  Set serSet = MatSerSet(data,tms,dates[1]);
  iter := iter+1
});

Real nObj2 := Copy(NObject);
WriteLn("nObj2="<<nObj2);

Real lostObjects := (nObj2-nObj1)/(maxIter);
WriteLn("lost objects by iteration = "<<lostObjects);

Sin embargo, si eliminamos la línea que llama a MatSerSet ya no se pierde ni uno solo. Tampoco se pierden si usamos MatSerSet pero no DatesOfSet

  Set serSet = MatSerSet(data,C,dates[1]);