--- tcltk/tkmain.c.orig	Tue Dec  5 02:51:35 2000
+++ tcltk/tkmain.c	Thu Aug  5 21:24:26 2004
@@ -1380,7 +1380,9 @@
 	    )
 	  return TRUE;
       case 1:
+	  ;
       default:
+	  ;
     }
     return FALSE;
 }