diff --git a/cde/programs/dtfile/Directory.c b/cde/programs/dtfile/Directory.c
index 6a4607dcd..8f02d24f2 100644
--- a/cde/programs/dtfile/Directory.c
+++ b/cde/programs/dtfile/Directory.c
@@ -1683,7 +1683,6 @@ ReadDirectoryProcess(
 
      }
      XtFree( (char *)position_info );
-     fclose(fptr);
    }
 
    XtFree(full_directory_name);