anchor.diff:      end;
     end;
   begin
  -  imports := TFslList<TFHIRImportedValueSet>.create;
  +  valueSets := 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);
  +        valueSets.add(TFHIRImportedValueSet.create(expandValueset(s, filter.filter, dependencies, notClosed)));
  +      if doDelete then
  +        excludeValueSet(list, map, valueSets[0].valueSet, expansion, valueSets, 1)
  +      else
  +        importValueSet(list, map, valueSets[0].valueSet, expansion, valueSets, 1);
       end
       else
       begin
  
positive.code:                       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);
                        finally
                          cds.free;
                        end;
  
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;
  