#ifdef HAVE_LIBZ
    if (ztarfile != NULL)
    {
+       errno = 0;
        if (gzwrite(ztarfile, buf, r) != r)
        {
+           /* if write didn't set errno, assume problem is no disk space */
+           if (errno == 0)
+               errno = ENOSPC;
            fprintf(stderr,
                    _("%s: could not write to compressed file \"%s\": %s\n"),
                    progname, current_file, get_gz_error(ztarfile));
    else
 #endif
    {
+       errno = 0;
        if (fwrite(buf, r, 1, tarfile) != 1)
        {
+           /* if write didn't set errno, assume problem is no disk space */
+           if (errno == 0)
+               errno = ENOSPC;
            fprintf(stderr, _("%s: could not write to file \"%s\": %s\n"),
                    progname, current_file, strerror(errno));
            disconnect_and_exit(1);
                continue;
            }
 
+           errno = 0;
            if (fwrite(copybuf, r, 1, file) != 1)
            {
+               /* if write didn't set errno, assume problem is no disk space */
+               if (errno == 0)
+                   errno = ENOSPC;
                fprintf(stderr, _("%s: could not write to file \"%s\": %s\n"),
                        progname, filename, strerror(errno));
                disconnect_and_exit(1);
 
 {
    lclContext *ctx = (lclContext *) AH->formatData;
 
+   errno = 0;
    if (dLen > 0 && cfwrite(data, dLen, ctx->dataFH) != dLen)
+   {
+       /* if write didn't set errno, assume problem is no disk space */
+       if (errno == 0)
+           errno = ENOSPC;
        exit_horribly(modulename, "could not write to output file: %s\n",
                      get_cfp_error(ctx->dataFH));
-
+   }
 
    return;
 }
    unsigned char c = (unsigned char) i;
    lclContext *ctx = (lclContext *) AH->formatData;
 
+   errno = 0;
    if (cfwrite(&c, 1, ctx->dataFH) != 1)
+   {
+       /* if write didn't set errno, assume problem is no disk space */
+       if (errno == 0)
+           errno = ENOSPC;
        exit_horribly(modulename, "could not write to output file: %s\n",
                      get_cfp_error(ctx->dataFH));
+   }
 
    return 1;
 }
 {
    lclContext *ctx = (lclContext *) AH->formatData;
 
+   errno = 0;
    if (cfwrite(buf, len, ctx->dataFH) != len)
+   {
+       /* if write didn't set errno, assume problem is no disk space */
+       if (errno == 0)
+           errno = ENOSPC;
        exit_horribly(modulename, "could not write to output file: %s\n",
                      get_cfp_error(ctx->dataFH));
+   }
 
    return;
 }