Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	14 Dec 2005 15:55:29 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	15 Dec 2005 12:05:43 -0000	1.3
@@ -227,8 +227,8 @@
       my set superclass [[my info superclass] set object_type]
     }
     set sql_attribute_names [list]
-    set o [Object new -volatile -contains [my cr_attributes]]
-    foreach att [$o info children] {
+    set o [xo::OrderedComposite new -volatile -contains [my cr_attributes]]
+    foreach att [$o children] { 
       lappend sql_attribute_names [$att attribute_name]
     }
     my log "-- attribute_names <$sql_attribute_names> [$o info children]"