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.32 -r1.33
--- openacs-4/packages/xotcl-core/xotcl-core.info	1 Aug 2007 19:32:31 -0000	1.32
+++ openacs-4/packages/xotcl-core/xotcl-core.info	10 Aug 2007 19:59:48 -0000	1.33
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.56" url="http://media.wu-wien.ac.at/download/xotcl-core-0.56.apm">
+    <version name="0.57" url="http://media.wu-wien.ac.at/download/xotcl-core-0.57.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>2007-08-01</release-date>
+        <release-date>2007-08-10</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
@@ -39,7 +39,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.56"/>
+        <provides url="xotcl-core" version="0.57"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	30 Jul 2007 17:16:03 -0000	1.21
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Aug 2007 19:59:48 -0000	1.22
@@ -278,7 +278,7 @@
 
     Class Field \
 	-superclass ::xo::OrderedComposite::Child \
-	-parameter {label {html {}} {orderby ""} name} \
+	-parameter {label {html {}} {orderby ""} name {richtext false}} \
 	-instproc init {} {
 	  my set name [namespace tail [self]]
 	} \
@@ -487,7 +487,7 @@
 
   Class create TABLE::Field -superclass ::xo::Drawable 
   TABLE::Field instproc render-data {line} {
-    if {[$line exists [my name].richtext]} {
+    if {[my richtext]} {
       html::t -disableOutputEscaping [$line set [my name]]
     } else {
       html::t [$line set [my name]] 
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.85 -r1.86
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	3 Aug 2007 07:39:30 -0000	1.85
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	10 Aug 2007 19:59:48 -0000	1.86
@@ -621,7 +621,7 @@
     set __attributes [list] 
     foreach a [concat [list ci.item_id acs_objects.object_type] \
                    $select_attributes] {
-      lappend __attributes [lindex [split $a .] end]
+      lappend __attributes [lindex [split [lindex $a end] .] end]
     }
 
     db_foreach instance_select \
@@ -921,7 +921,9 @@
                           "[my set __title_prefix] ($name)" : $name}]
         }
       }
-      set item_id [eval ::xo::db::sql::content_item new [[self class] set content_item__new_args]]
+      #my msg --[subst [[self class] set content_item__new_args]]
+      set item_id [eval ::xo::db::sql::content_item new \
+		       [[self class] set content_item__new_args]]
       if {$storage_type eq "file"} {
         set text [cr_create_content_file $item_id $revision_id $import_file]
       }