1 files changed, 3 insertions, 1 deletions
diff --git a/user.c b/user.c
index 374edbe..8d0a2ab 100644
--- a/user.c
+++ b/user.c
@@ -1320,7 +1320,9 @@ WriteUserIndividual(const statement_t *stats)
 
 		WriteRoutine(file, stat->stRoutine);
 		WriteEpilog(file);
-		fclose(file);
+		if (ferror(file) || fclose(file))
+		    fatal("fclose(): ", filename,
+			  unix_error_string(errno));
 		strfree(filename);
 	    }
 	    break;