Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/xotcl-core.info	14 Dec 2005 15:55:28 -0000	1.2
+++ openacs-4/packages/xotcl-core/xotcl-core.info	15 Dec 2005 12:05:42 -0000	1.3
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.27" url="http://media.wu-wien.ac.at/download/xotcl-core-0.27.apm">
+    <version name="0.28" url="http://media.wu-wien.ac.at/download/xotcl-core-0.28.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2005-12-08</release-date>
+        <release-date>2005-12-15</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -25,7 +25,7 @@
 when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating.</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.27"/>
+        <provides url="xotcl-core" version="0.28"/>
 
         <callbacks>
         </callbacks>
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]"