Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	25 Apr 2018 19:23:26 -0000	1.33
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	8 May 2018 22:37:18 -0000	1.34
@@ -473,9 +473,7 @@
     set primary_keys [list "${table_name}.${id_column}"]
 
     foreach row [package_object_attribute_list -start_with $start_with $object_type] {
-        set table [lindex $row 1]
-        set column [lindex $row 2]
-        set object_column [lindex $row 8]
+        lassign $row . table column . . . . . object_column
 
         if {[string tolower $column] eq "object_id"} {
             # We already have object_id... skip this column