diff --git a/bfd/ChangeLog b/bfd/ChangeLog
index 485f4da528..b979b93d00 100644
--- a/bfd/ChangeLog
+++ b/bfd/ChangeLog
@@ -1,3 +1,8 @@
+2010-06-08  Tristan Gingold  <gingold@adacore.com>
+
+	* vms-lib.c (_bfd_vms_lib_write_archive_contents): Increment
+	for the first block.
+
 2010-06-08  Tristan Gingold  <gingold@adacore.com>
 
 	* vms-lib.c (_bfd_vms_lib_ia64_mkarchive): New function.
diff --git a/bfd/vms-lib.c b/bfd/vms-lib.c
index c959df9596..13a4fa892b 100644
--- a/bfd/vms-lib.c
+++ b/bfd/vms-lib.c
@@ -2111,6 +2111,7 @@ _bfd_vms_lib_write_archive_contents (bfd *arch)
           /* Write the first block (which contains an mhd).  */
           if (bfd_bwrite (blk, VMS_BLOCK_SIZE, arch) != VMS_BLOCK_SIZE)
             goto input_err;
+          off += VMS_BLOCK_SIZE;
 
           if (amt == VMS_BLOCK_SIZE - sz)
             {