Index: tkMain.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkMain.c,v
retrieving revision 1.15.2.2
diff -u -p -r1.15.2.2 tkMain.c
--- tkMain.c	18 Oct 2005 15:16:01 -0000	1.15.2.2
+++ tkMain.c	19 Apr 2006 20:05:52 -0000
@@ -148,6 +148,7 @@ Tk_MainEx(argc, argv, appInitProc, inter
      * use it as the name of a script file to process.
      */
+/* 29sep02 jcw - drop this, this eats a leading "-file" in starpacks :(
     if (argc > 1) {
 	length = strlen(argv[1]);
 	if ((length >= 2) && (strncmp(argv[1], "-file", length) == 0)) {
@@ -155,6 +156,7 @@ Tk_MainEx(argc, argv, appInitProc, inter
 	    argv++;
 	}
     }
+*/
     if (TclGetStartupScriptFileName() == NULL) {
 	if ((argc > 1) && (argv[1][0] != '-')) {
 	    TclSetStartupScriptFileName(argv[1]);