--- a/src/doc.c	Mon Aug 13 10:11:42 2007 +0200
+++ b/src/doc.c	Mon Aug 13 10:12:37 2007 +0200
@@ -646,9 +646,11 @@
 #endif
 
 
-static void
-verify_doc_mapper (Lisp_Object sym, Lisp_Object closure)
+static int
+verify_doc_mapper (Lisp_Object sym, void *arg)
 {
+  Lisp_Object closure = *(Lisp_Object *)arg;
+
   if (!NILP (Ffboundp (sym)))
     {
       int doc = 0;
@@ -705,6 +707,7 @@
 	  XCDR (closure) = Qt;
 	}
     }
+  return 0; /* Never stop */
 }
 
 DEFUN ("Verify-documentation", Fverify_documentation, 0, 0, 0, /*
@@ -716,7 +719,7 @@
   Lisp_Object closure = Fcons (Qnil, Qnil);
   struct gcpro gcpro1;
   GCPRO1 (closure);
-  map_obarray (Vobarray, verify_doc_mapper, closure);
+  map_obarray (Vobarray, verify_doc_mapper, &closure);
   if (!NILP (Fcdr (closure)))
     message ("\n"
 "This is usually because some files were preloaded by loaddefs.el or\n"