diff --git a/cde/programs/dtsr/dtsrload.c b/cde/programs/dtsr/dtsrload.c
index abe0b0907..703cab08b 100644
--- a/cde/programs/dtsr/dtsrload.c
+++ b/cde/programs/dtsr/dtsrload.c
@@ -1263,9 +1263,9 @@ int             main (int argc, char *argv[])
 
     }	/* end main record loop */
 
-    fclose (infile);
     if (need_final_progress_msg)
 	print_progress ();
+    fclose (infile);
     write_dbrec ();
 
     /* If all input records were discarded, complete processing