anchor.diff:  function TValueSetChecker.check(coding: TFhirCodingW; abstractOk, implySystem : boolean) : TFhirParametersW;
   var
     list : TCodeDisplays;
  -  message : String;
  +  message, ver : String;
     cause : TFhirIssueType;
   begin
     result := FFactory.makeParameters;
     try
       list := TCodeDisplays.Create;
       try
  -      if check(coding.systemUri, coding.version, coding.code, abstractOk, implySystem, list, message, cause) then
  +      if check(coding.systemUri, coding.version, coding.code, abstractOk, implySystem, list, message, ver, cause) then
         begin
           result.AddParamBool('result', true);
           if (coding.display <> '') and (not list.has(coding.display)) then
  
positive.code:         if not result then
          begin
            checker := TValueSetChecker(FOthers.matches[s]);
            result := checker.check(system, version, code, abstractOk, implySystem, displays, message, cause);
          end;
        end;
        for cc in FValueSet.includes.forEnum do
  
negative.code:             result.AddParamStr('display', list.chooseDisplay(FLanguages, FParams.displayLanguage));
            result.addParamStr('system', c.systemUri);
            result.addParamStr('code', c.code);
            if (ver <> '') then
              result.addParamStr('version', ver);
          end
          else
          begin
  