1 files changed, 4 insertions, 11 deletions
diff --git a/src/bin/pgtclsh/pgtclAppInit.c b/src/bin/pgtclsh/pgtclAppInit.c
index acdce124f8d..b44a46f6811 100644
--- a/src/bin/pgtclsh/pgtclAppInit.c
+++ b/src/bin/pgtclsh/pgtclAppInit.c
@@ -11,11 +11,7 @@
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  */
 
-#ifndef lint
-static char sccsid[] = "@(#) tclAppInit.c 1.11 94/12/17 16:14:03";
-#endif /* not lint */
-
-#include "tcl.h"
+#include <tcl.h>
 
 #include <libpgtcl.h>
 
@@ -47,9 +43,7 @@ int *tclDummyMathPtr = (int *) matherr;
  */
 
 int
-main(argc, argv)
-    int argc;			/* Number of command-line arguments. */
-    char **argv;		/* Values of command-line arguments. */
+main(int argc, char **argv)
 {
     Tcl_Main(argc, argv, Tcl_AppInit);
     return 0;			/* Needed only to prevent compiler warning. */
@@ -75,8 +69,7 @@ main(argc, argv)
  */
 
 int
-Tcl_AppInit(interp)
-    Tcl_Interp *interp;		/* Interpreter for application. */
+Tcl_AppInit(Tcl_Interp *interp)
 {
     if (Tcl_Init(interp) == TCL_ERROR) {
 	return TCL_ERROR;
@@ -93,7 +86,7 @@ Tcl_AppInit(interp)
      * where "Mod" is the name of the module.
      */
 
-    if (Pg_Init(interp) == TCL_ERROR) { 
+    if (Pgtcl_Init(interp) == TCL_ERROR) { 
       return TCL_ERROR;
     }