anchor.diff:  
   
   
  -procedure TAbZipArchive.SaveArchive2;
  +procedure TAbZipArchive.SaveArchive; {!!.05 Renamed SaveArchive2 to SaveArchive, switch methods to take back to Commerical 3.04 status}
     {builds a new archive and copies it to FStream}
   var
     Abort              : Boolean;
  
positive.code:       aaNone, aaMove: begin
        {just copy the compressed file data to temporary stream }
          { find the current item's data }
          FStream.Position := CurrItem.RelativeOffset;
  
          { save compressed data size }
  
negative.code:   AB_SIZE_CD_HEADER    = 46;
    AB_SIZE_CD_TAIL      = 22;
  
  procedure TAbZipArchive.SaveArchive2; {!!.05 Renamed SaveArchive to SaveArchive2, switch methods to take back to Commerical 3.04 status}
  var
    CompressedDataStream  : TAbVirtualMemoryStream;
  //  CDStream : TAbVirtualMemoryStream;
  