--- a/src/fileio.c	Mon Aug 13 09:24:19 2007 +0200
+++ b/src/fileio.c	Mon Aug 13 09:25:29 2007 +0200
@@ -413,7 +413,7 @@
 */
        (file))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Bufbyte *beg;
   Bufbyte *p;
   Lisp_Object handler;
@@ -481,7 +481,7 @@
 */
        (file))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Bufbyte *beg, *p, *end;
   Lisp_Object handler;
 
@@ -517,7 +517,7 @@
 */
   (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object handler;
 
   /* If the file name has special constructs in it,
@@ -617,7 +617,7 @@
 */
        (file))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   char *buf;
   Lisp_Object handler;
 
@@ -803,7 +803,7 @@
 */
        (directory))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   char *buf;
   Lisp_Object handler;
 
@@ -871,7 +871,7 @@
 */
        (name, defalt))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Bufbyte *nm;
   
   Bufbyte *newdir, *p, *o;
@@ -893,7 +893,6 @@
   Bufbyte *tmp, *defdir;
 #endif /* DOS_NT */
   Lisp_Object handler;
-  struct gcpro gcpro1;
   
   CHECK_STRING (name);
 
@@ -1401,10 +1400,10 @@
 */
        (filename, defalt))
 {
-  /* This function can call lisp */
-  struct gcpro gcpro1;
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object expanded_name;
   Lisp_Object handler;
+  struct gcpro gcpro1;
 
   CHECK_STRING (filename);
 
@@ -1528,7 +1527,7 @@
 */
        (string))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Bufbyte *nm;
 
   Bufbyte *s, *p, *o, *x, *endp;
@@ -1777,7 +1776,7 @@
 barf_or_query_if_file_exists (Lisp_Object absname, CONST char *querystring,
 			      int interactive, struct stat *statptr)
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   struct stat statbuf;
 
   /* stat is a good way to tell whether the file exists,
@@ -1831,7 +1830,7 @@
 */
        (filename, newname, ok_if_already_exists, keep_time))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   int ifd, ofd, n;
   char buf[16 * 1024];
   struct stat st, out_st;
@@ -1997,7 +1996,7 @@
 */
        (dirname))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   char dir [MAXPATHLEN];
   Lisp_Object handler;
   struct gcpro gcpro1;
@@ -2041,7 +2040,7 @@
 */
        (dirname))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object handler;
   struct gcpro gcpro1;
   
@@ -2068,7 +2067,7 @@
 */
        (filename))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object handler;
   struct gcpro gcpro1;
   
@@ -2097,7 +2096,7 @@
 int
 internal_delete_file (Lisp_Object filename)
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   return NILP (condition_case_1 (Qt, Fdelete_file, filename,
 				 internal_delete_file_1, Qnil));
 }
@@ -2113,7 +2112,7 @@
 */
        (filename, newname, ok_if_already_exists))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object handler;
   struct gcpro gcpro1, gcpro2;
 
@@ -2206,7 +2205,7 @@
 */
        (filename, newname, ok_if_already_exists))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.04.06. */
   Lisp_Object handler;
   struct gcpro gcpro1, gcpro2;
 
@@ -2263,7 +2262,7 @@
 */
        (filename, linkname, ok_if_already_exists))
 {
-  /* This function can call lisp */
+  /* This function can GC.  GC checked 1997.06.04. */
   Lisp_Object handler;
   struct gcpro gcpro1, gcpro2;