I just found a typo in code in tk via flay! RAD!! This exists in trunk  
as well as in 1.8.x:

Matches found in :when (mass = 404)
   A: /Users/ryan/Work/svn/ruby/ruby/ext/tk/lib/tk/itemconfig.rb:431
   B: /Users/ryan/Work/svn/ruby/ruby/ext/tk/lib/tk/itemconfig.rb:808

    when /^(#{__item_val2ruby_optkeys(tagid(tagOrId)).keys.join("|")}) 
$/ then
      method = _symbolkey2str(__item_val2ruby_optkeys(tagid(tagOrId))) 
[slot]
      conf =  
tk_split_simplelist 
(tk_call_without_enc(*(__item_confinfo_cmd(tagid(tagOrId)) << "- 
#{slot}")), false, true)
      if (__item_configinfo_struct(tagid(tagOrId))[:default_value] and  
conf[__item_configinfo_struct(tagid(tagOrId))[:default_value]]) then
        optval = conf[__item_configinfo_struct(tagid(tagOrId)) 
[:default_value]]
        begin
          val = method.call(tagOrId, optval)
        rescue => e
          if $DEBUG then
            warn("Warning:: #{e.message} (when  
#{method}.call(#{tagOrId.inspect}, #{optval.inspect})")
          end
          val = optval
        end
        conf[__item_configinfo_struct(tagid(tagOrId))[:default_value]]  
= val
      end
      if conf[__item_configinfo_struct(tagid(tagOrId)) 
[:current_value]] then
        optval = conf[__item_configinfo_struct(tagid(tagOrId)) 
[:current_value]]
        begin
          val = method.call(tagOrId, optval)
        rescue => e
          if $DEBUG then
A:         warn("Warning:: #{e.message} (when  
#{method}lcall(#{tagOrId.inspect}, #{optval.inspect})")
B:         warn("Warning:: #{e.message} (when  
#{method}.call(#{tagOrId.inspect}, #{optval.inspect})")
          end
          val = optval
        end
        conf[__item_configinfo_struct(tagid(tagOrId))[:current_value]]  
= val
      end