diff --git a/ChangeLog b/ChangeLog
index 78286d7375..0aaaca39ad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jul 17 23:54:59 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/variable.rb: TkVariable#ref returns a TkVariable object
+
 Sat Jul 17 22:04:44  akira yamada  <akira@ruby-lang.org>
 
 	* lib/uri/ldap.rb: method hierarchical? should be in URI::LDAP.
diff --git a/ext/tk/lib/tk/variable.rb b/ext/tk/lib/tk/variable.rb
index 22b17eb0e1..97d18e4a50 100644
--- a/ext/tk/lib/tk/variable.rb
+++ b/ext/tk/lib/tk/variable.rb
@@ -235,7 +235,8 @@ TkCore::INTERP.add_tk_procs('rb_var', 'args', <<-'EOL')
   end
 
   def ref(*idxs)
-    "#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})"
+    # "#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})"
+    TkVarAccess.new("#{@id}(#{idxs.collect{|idx| _get_eval_string(idx)}.join(',')})")
   end
 
   def is_hash?