Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 647)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 648)
@@ -2195,5 +2195,5 @@
 
 void
-fatal_mach_error(format, ...);
+fatal_mach_error(char *format, ...);
 
 #define MACH_CHECK_ERROR(context,x) if (x != KERN_SUCCESS) {fatal_mach_error("Mach error while %s : ~d", context, x);}