anchor.diff:  
   procedure TDocOpts.setGenJSON(const aValue: boolean);
   begin
  +  if fJsonFname <> '' then
  +  begin
  +    fGenJson := true;
  +    exit;
  +  end;
  +  //
     if fGenJson = aValue then exit;
     fGenJson := aValue;
     doChanged;
  
positive.code:     property release: boolean read fRelease write setRelease;
      property unittest: boolean read fUt write setUt;
      property versionIdentifier: string read fVerId write setVerId;
    public
      procedure assign(aValue: TPersistent); override;
      procedure getOpts(const aList: TStrings); override;
    end;
  
negative.code: 
  procedure TOtherOpts.getOpts(const aList: TStrings);
  var
    str1, str2: string;
  begin
    for str1 in fCustom do if str1 <> '' then
    begin
      if str1[1] <> '-' then
        str2 := '-' + str1
      else
        str2 := str1;
      aList.Add(str2);
    end;
  end;
  
  procedure TOtherOpts.setCustom(const aValue: TStringList);
  