diff --git a/ChangeLog b/ChangeLog
index 8ee4dc4a33..4d2c41c5de 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Nov 11 10:42:41 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk.rb: raise an exception when creating TkWindow
+	  object, because TkWindow class is an abstract class.
+
 Tue Nov 11 03:30:43 JST 2003  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 
 	* lib/ext/openssl/ossl_conf.c (ossl_config_get_value): return nil
diff --git a/ext/tk/lib/tk.rb b/ext/tk/lib/tk.rb
index e5d1c6f63b..2cb4731cbd 100644
--- a/ext/tk/lib/tk.rb
+++ b/ext/tk/lib/tk.rb
@@ -3989,6 +3989,7 @@ class TkWindow<TkObject
   end
 
   def create_self
+    fail RuntimeError, "TkWindow is an abstract class"
   end
   private :create_self
 
@@ -5124,7 +5125,7 @@ end
 
 class TkTextWin<TkWindow
   def create_self
-    fail TypeError, "TkTextWin is abstract class"
+    fail RuntimeError, "TkTextWin is an abstract class"
   end
 
   def bbox(index)