Posted to tcl by kbk at Sat Oct 02 02:46:34 GMT 2010view pretty
$ tclsh8.6
% set d {a 1 b 2 c 3}
a 1 b 2 c 3
% dict append d b 22
a 1 b 222 c 3
% proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
% x
a 1 b 2 c 3
% exit
$ tclsh8.5
% set d {a 1 b 2 c 3}
a 1 b 2 c 3
% dict append d b 22
a 1 b 222 c 3
% proc x {} { set d {a 1 b 2 c 3}; dict append d b 22 }
% x
a 1 b 222 c 3
% exit