diff --git a/ChangeLog b/ChangeLog
index 56e59ea004..6d4fd0cdbf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jul 11 19:13:33 2006  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/multi-tk.rb: remove restriction on the class of 
+	  pseudo-toplevel.
+
 Tue Jul 11 18:00:57 2006  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/multi-tk.rb: security fix.
diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb
index 0211a15060..36cb4388ae 100644
--- a/ext/tk/lib/multi-tk.rb
+++ b/ext/tk/lib/multi-tk.rb
@@ -766,7 +766,8 @@ class MultiTkIp
         fail SecurityError, "no permission to manipulate"
       end
 
-      if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
+      # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
+      if m.respond_to?(:pseudo_toplevel_evaluable?)
         @pseudo_toplevel[0] = true
         @pseudo_toplevel[1] = m
       else
@@ -1770,7 +1771,8 @@ class MultiTkIp
       fail SecurityError, "no permission to manipulate"
     end
 
-    if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
+    # if m.kind_of?(Module) && m.respond_to?(:pseudo_toplevel_evaluable?)
+    if m.respond_to?(:pseudo_toplevel_evaluable?)
       @pseudo_toplevel[0] = true
       @pseudo_toplevel[1] = m
     else