diff --git a/ChangeLog b/ChangeLog
index e157f5d2fc..93f87bbed8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan 13 16:50:03 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: use $0 as the default application class name.
+
 Tue Jan 13 14:48:01 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* parse.y (primary): allow no "when" case. [ruby-dev:22578]
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index 6bae4d8f42..a7e63edafc 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -662,7 +662,8 @@ module TkCore
     if self.const_defined? :IP_NAME
       name = IP_NAME.to_s
     else
-      name = nil
+      #name = nil
+      name = $0
     end
     if self.const_defined? :IP_OPTS
       if IP_OPTS.kind_of?(Hash)