diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index a0c1571f3b..2e66015d78 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,3 +1,8 @@
+2005-10-04  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tkextlib/tktable/tktable.rb: border_* instance methods
+	  don't call 'border' subcommands.
+
 2005-08-10  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tkextlib/blt/component.rb: didn't check
diff --git a/ext/tk/lib/tkextlib/SUPPORT_STATUS b/ext/tk/lib/tkextlib/SUPPORT_STATUS
index 0a5c332d82..81cffb5ed3 100644
--- a/ext/tk/lib/tkextlib/SUPPORT_STATUS
+++ b/ext/tk/lib/tkextlib/SUPPORT_STATUS
@@ -1,7 +1,7 @@
 
   [ current support status of Tcl/Tk extensions ]
 
-  *******<<<  RELEASE_DATE of the libraries : 2005/08/10  >>>*******
+  *******<<<  RELEASE_DATE of the libraries : 2005/10/04  >>>*******
 
 The following list shows *CURRENT* status when this file was modifyed
 at last. If you want to add other Tcl/Tk extensions to the planed list
diff --git a/ext/tk/lib/tkextlib/tktable/tktable.rb b/ext/tk/lib/tkextlib/tktable/tktable.rb
index 161f4e4543..59328a8f6e 100644
--- a/ext/tk/lib/tkextlib/tktable/tktable.rb
+++ b/ext/tk/lib/tkextlib/tktable/tktable.rb
@@ -360,16 +360,16 @@ class Tk::TkTable
   end
 
   def border_mark(x, y)
-    simplelist(tk_send('scan', 'mark', x, y))
+    simplelist(tk_send('border', 'mark', x, y))
   end
   def border_mark_row(x, y)
-    tk_send('scan', 'mark', x, y, 'row')
+    tk_send('border', 'mark', x, y, 'row')
   end
   def border_mark_col(x, y)
-    tk_send('scan', 'mark', x, y, 'col')
+    tk_send('border', 'mark', x, y, 'col')
   end
   def border_dragto(x, y)
-    tk_send('scan', 'dragto', x, y)
+    tk_send('border', 'dragto', x, y)
   end
 
   def clear_cache(first=None, last=None)