/*
  * Include all files from the given directory in the output tar stream. If
- * 'sizeonly' is true, we just calculate a total length and return ig, without
+ * 'sizeonly' is true, we just calculate a total length and return it, without
  * actually sending anything.
  */
 static int64
    int         i,
                sum;
 
-   sum = 0;
+   /*
+    * Per POSIX, the checksum is the simple sum of all bytes in the header,
+    * treating the bytes as unsigned, and treating the checksum field (at
+    * offset 148) as though it contained 8 spaces.
+    */
+   sum = 8 * ' ';              /* presumed value for checksum field */
    for (i = 0; i < 512; i++)
        if (i < 148 || i >= 156)
            sum += 0xFF & header[i];
-   return sum + 256;           /* Assume 8 blanks in checksum field */
+   return sum;
 }
 
 /* Given the member, write the TAR header & send the file */
                struct stat * statbuf)
 {
    char        h[512];
-   int         lastSum = 0;
-   int         sum;
 
+   /*
+    * Note: most of the fields in a tar header are not supposed to be
+    * null-terminated.  We use sprintf, which will write a null after the
+    * required bytes; that null goes into the first byte of the next field.
+    * This is okay as long as we fill the fields in order.
+    */
    memset(h, 0, sizeof(h));
 
    /* Name 100 */
         * indicated in the tar format by adding a slash at the end of the
         * name, the same as for regular directories.
         */
-       h[strlen(filename)] = '/';
-       h[strlen(filename) + 1] = '\0';
+       int         flen = strlen(filename);
+
+       flen = Min(flen, 99);
+       h[flen] = '/';
+       h[flen + 1] = '\0';
    }
 
    /* Mode 8 */
    sprintf(&h[108], "%07o ", statbuf->st_uid);
 
    /* Group 8 */
-   sprintf(&h[117], "%07o ", statbuf->st_gid);
+   sprintf(&h[116], "%07o ", statbuf->st_gid);
 
-   /* File size 12 - 11 digits, 1 space, no NUL */
+   /* File size 12 - 11 digits, 1 space; use print_val for 64 bit support */
    if (linktarget != NULL || S_ISDIR(statbuf->st_mode))
        /* Symbolic link or directory has size zero */
        print_val(&h[124], 0, 8, 11);
    /* Mod Time 12 */
    sprintf(&h[136], "%011o ", (int) statbuf->st_mtime);
 
-   /* Checksum 8 */
-   sprintf(&h[148], "%06o ", lastSum);
+   /* Checksum 8 cannot be calculated until we've filled all other fields */
 
    if (linktarget != NULL)
    {
        /* Type - Symbolic link */
        sprintf(&h[156], "2");
+       /* Link Name 100 */
        sprintf(&h[157], "%.99s", linktarget);
    }
    else if (S_ISDIR(statbuf->st_mode))
        /* Type - regular file */
        sprintf(&h[156], "0");
 
-   /* Link tag 100 (NULL) */
+   /* Magic 6 */
+   sprintf(&h[257], "ustar");
 
-   /* Magic 6 + Version 2 */
-   sprintf(&h[257], "ustar00");
+   /* Version 2 */
+   sprintf(&h[263], "00");
 
    /* User 32 */
    /* XXX: Do we need to care about setting correct username? */
    /* XXX: Do we need to care about setting correct group name? */
    sprintf(&h[297], "%.31s", "postgres");
 
-   /* Maj Dev 8 */
-   sprintf(&h[329], "%6o ", 0);
+   /* Major Dev 8 */
+   sprintf(&h[329], "%07o ", 0);
 
-   /* Min Dev 8 */
-   sprintf(&h[337], "%6o ", 0);
+   /* Minor Dev 8 */
+   sprintf(&h[337], "%07o ", 0);
 
-   while ((sum = _tarChecksum(h)) != lastSum)
-   {
-       sprintf(&h[148], "%06o ", sum);
-       lastSum = sum;
-   }
+   /* Prefix 155 - not used, leave as nulls */
+
+   /*
+    * We mustn't overwrite the next field while inserting the checksum.
+    * Fortunately, the checksum can't exceed 6 octal digits, so we just write
+    * 6 digits, a space, and a null, which is legal per POSIX.
+    */
+   sprintf(&h[148], "%06o ", _tarChecksum(h));
 
+   /* Now send the completed header. */
    pq_putmessage('d', h, 512);
 }
 
 
        tarClose(AH, th);
 
-       /* Add a block of NULLs since it's de-rigeur. */
-       for (i = 0; i < 512; i++)
+       /*
+        * EOF marker for tar files is two blocks of NULLs.
+        */
+       for (i = 0; i < 512 * 2; i++)
        {
            if (fputc(0, ctx->tarFH) == EOF)
                exit_horribly(modulename,
    int         i,
                sum;
 
-   sum = 0;
+   /*
+    * Per POSIX, the checksum is the simple sum of all bytes in the header,
+    * treating the bytes as unsigned, and treating the checksum field (at
+    * offset 148) as though it contained 8 spaces.
+    */
+   sum = 8 * ' ';              /* presumed value for checksum field */
    for (i = 0; i < 512; i++)
        if (i < 148 || i >= 156)
            sum += 0xFF & header[i];
-   return sum + 256;           /* Assume 8 blanks in checksum field */
+   return sum;
 }
 
 bool
    if (sum != chk)
        return false;
 
-   /* POSIX format */
-   if (strncmp(&header[257], "ustar00", 7) == 0)
+   /* POSIX tar format */
+   if (memcmp(&header[257], "ustar\0", 6) == 0 &&
+       memcmp(&header[263], "00", 2) == 0)
+       return true;
+   /* GNU tar format */
+   if (memcmp(&header[257], "ustar  \0", 8) == 0)
        return true;
-   /* older format */
-   if (strncmp(&header[257], "ustar  ", 7) == 0)
+   /* not-quite-POSIX format written by pre-9.3 pg_dump */
+   if (memcmp(&header[257], "ustar00\0", 8) == 0)
        return true;
 
    return false;