anchor.diff:                        cds := TCodeDisplays.Create;
                         try
                           listDisplays(cds, cs, c); // cs.display(c, FParams.displayLanguage)
  -                        processCode(doDelete, limitCount, list, map, cs.systemUri(c), cs.version(c), cs.code(c), cds, cs.definition(c), expansion, imports);
  +                        processCode(doDelete, limitCount, list, map, cs.systemUri(c), cs.version(c), cs.code(c), cds, cs.definition(c), expansion, valueSets);
                         finally
                           cds.free;
                         end;
  
positive.code:     end;
    end;
  begin
    imports := TFslList<TFHIRImportedValueSet>.create;
    try
      FFactory.checkNoModifiers(cset,'ValueSetExpander.processCodes', 'set');
  
      if cset.systemUri = '' then
      begin
        for s in cset.valueSets do
          imports.add(TFHIRImportedValueSet.create(expandValueset(s, filter.filter, dependencies, notClosed)));
        importValueSet(list, map, imports[0].valueSet, expansion, imports, 1);
      end
      else
      begin
  
negative.code:               base := expandValueSet(cs.SpecialEnumeration, filter.filter, dependencies, notClosed);
                try
                  expansion.addExtension('http://hl7.org/fhir/StructureDefinition/valueset-toocostly', FFactory.makeBoolean(true));
                  if doDelete then
                    excludeValueSet(list, map, base, expansion, valueSets, 0)
                  else
                    importValueSet(list, map, base, expansion, valueSets, 0);
                finally
                  base.Free;
                end;
  