Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.133.2.30 -r1.133.2.31
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 31 Oct 2013 17:38:02 -0000 1.133.2.30
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 10 Nov 2013 19:18:15 -0000 1.133.2.31
@@ -3048,6 +3048,8 @@
Places the nth element of list
into the variable named by
the nth element of args
.
+ One should use the built-in Tcl command "lassign" instread of this proc.
+
} {
for { set i 0 } { $i < [llength $args] } { incr i } {
upvar [lindex $args $i] val