$NetBSD$

--- tcl/panic.c.orig	1995-02-24 16:19:49.000000000 -0500
+++ tcl/panic.c	2008-12-16 20:18:00.000000000 -0500
@@ -19,7 +19,7 @@
 
 #include <stdio.h>
 #include <stdlib.h>
-#include <varargs.h>
+#include <stdarg.h>
 
 /*
  *----------------------------------------------------------------------
@@ -39,18 +39,17 @@
 
 #ifndef lint
 void
-panic(va_alist)
-    va_dcl			/* char *format, then any number of additional
+panic(char *format, ...)
+				/* char *format, then any number of additional
 				 * values to be printed under the control of
 				 * format.  This is all just the same as you'd
 				 * pass to printf. */
 {
-    char *format;
     va_list args;
 
-    va_start(args);
-    format = va_arg(args, char *);
+    va_start(args, format);
     (void) vfprintf(stderr, format, args);
+    va_end(args);
     (void) fflush(stderr);
     abort();
 }
