Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v
diff -u -N -r1.6 -r1.6.6.1
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	3 Apr 2010 23:13:47 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl	27 Oct 2013 14:26:46 -0000	1.6.6.1
@@ -62,8 +62,7 @@
     set package_id [ad_conn package_id]
 
     foreach row $callback_list {
-	set callback [lindex $row 0]
-	set type [lindex $row 1]
+	lassign $row callback type
 
 	switch -- $type {
 	    tcl {