anchor.diff:    if fGenStack then aList.Add('-gs');
     if fMain then aList.Add('-main');
     if fRelease then aList.Add('-release');
  +  for opt in fVerIds do
  +    aList.Add('-version=' + opt );
   end;
   
   procedure TOutputOpts.assign(aValue: TPersistent);
  
positive.code: 
  procedure TDocOpts.setGenJSON(const aValue: boolean);
  begin
    if fGenJson = aValue then exit;
    fGenJson := aValue;
    doChanged;
  
negative.code:     fBinKind: TBinaryKind;
      fUt: boolean;
      fVerId: string;
      fVerIds: TStringList;
      fInline: boolean;
      fNoBounds: boolean;
      fOptimz: boolean;
  