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.34 -r1.35
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	8 May 2018 22:37:18 -0000	1.34
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	9 May 2018 08:17:15 -0000	1.35
@@ -473,7 +473,9 @@
     set primary_keys [list "${table_name}.${id_column}"]
 
     foreach row [package_object_attribute_list -start_with $start_with $object_type] {
-        lassign $row . table column . . . . . object_column
+        set table [lindex $row 1]
+        set column [lindex $row 2]
+        set object_column [lindex $row 8]
 
         if {[string tolower $column] eq "object_id"} {
             # We already have object_id... skip this column