diff --git a/ChangeLog b/ChangeLog
index 9e2c3f577f..a028e34fd4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Dec 24 23:29:30 2003  Tanaka Akira  <akr@m17n.org>
+
+	* lib/tsort.rb (test_orphaned_break): removed.
+
 Wed Dec 24 20:53:06 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/sample/tkmulticolumnlist.rb: new sample
diff --git a/lib/tsort.rb b/lib/tsort.rb
index 82d3f3a385..5efd6480d3 100644
--- a/lib/tsort.rb
+++ b/lib/tsort.rb
@@ -283,20 +283,6 @@ if __FILE__ == $0
       assert_equal([[0], [1]],
         a.strongly_connected_components.map {|nodes| nodes.sort})
     end
-
-    def orphaned_proc(block_str)
-      eval "lambda {#{block_str}}"
-    end
-
-    def test_orphaned_break
-      a = [[1], [2], []]
-      @n = 0
-      x = orphaned_proc %{|c| @n += 1; break :break_value}
-      assert_nothing_raised {
-        assert_equal(:break_value, a.each_strongly_connected_component(&x))
-      }
-      assert_equal(1, @n)
-    end
   end
 
 end