diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib
index 545f574d5d..6a5338ed17 100644
--- a/ext/tk/ChangeLog.tkextlib
+++ b/ext/tk/ChangeLog.tkextlib
@@ -1,6 +1,16 @@
 2005-04-08  ocean  <ocean@ruby-lang.org>
 
-	* sample/tkextlib/treectrl/*.rb: fixed typo. (wrong itemheight)
+	* sample/tkextlib/treectrl/help.rb: fixed typo. (wrong color)
+
+2005-04-08  ocean  <ocean@ruby-lang.org>
+
+	* sample/tkextlib/treectrl/random.rb: fixed typo. (wrong itemheight)
+
+	* sample/tkextlib/treectrl/outlook-newgroup.rb: ditto.
+
+	* sample/tkextlib/treectrl/explorer.rb: ditto.
+
+	* sample/tkextlib/treectrl/help.rb: ditto.
 
 2005-04-07  ocean  <ocean@ruby-lang.org>
 
diff --git a/ext/tk/sample/tkextlib/treectrl/help.rb b/ext/tk/sample/tkextlib/treectrl/help.rb
index 4acd9c7382..be67cc5729 100644
--- a/ext/tk/sample/tkextlib/treectrl/help.rb
+++ b/ext/tk/sample/tkextlib/treectrl/help.rb
@@ -30,7 +30,7 @@ def demoHelpContents(t)
                      'blue', ['mouseover']
                    ])
   t.element_create('e4', :rect, :showfocus=>true, 
-                   :fill=>[@SystemHighligh, ['selected', 'focus']])
+                   :fill=>[@SystemHighlight, ['selected', 'focus']])
 
   # book
   s = t.style_create('s1')
@@ -122,8 +122,7 @@ def demoHelpContents(t)
   treeCtrlHelp.bind('Button1-Motion', 
                     proc{|w, x, y|
                       if w.selection_get.length == 1
-                        if (TkPackage.vcompare(Tk::TreeCtrl.package_version, 
-                                               '1.1') >= 0)
+                        if $Version_1_1_OrLater
                           w.item_toggle(w.selection_get[0])
                         else # TreeCtrl 1.0
                           w.toggle(w.selection_get[0])