diff --git a/ChangeLog b/ChangeLog
index 583d91acfc..fa40c18c14 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Jul 24 03:41:30 2003  NAKAMURA Usaku <usa@ruby-lang.org>
+
+	* ext/tcltklib/tcltklib.c (ip_init): need at least one statement after
+	  label.
+
 Thu Jul 24 01:51:08 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* lib/webrick: imported.
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 9ebdbb31e7..8393bf0746 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -623,6 +623,7 @@ ip_init(argc, argv, self)
       }
     case 0:
       /* no args */
+      ;
     }
 
     /* from Tcl_AppInit() */