
proc appendTrace {name1 name2 op} {

   global $name1
   puts "traced $name1\($name2\)"
}

trace variable one r appendTrace

# works:
#set one(two) 0
#incr one(two)

# _NOT_ working:
append one(two) three

# this (of course) works again:
#puts $one(two)
