Index: openacs-4/packages/xotcl-core/tcl/00-serializer-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/00-serializer-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/00-serializer-procs.tcl	8 Sep 2006 21:53:12 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/00-serializer-procs.tcl	8 Oct 2007 00:06:37 -0000	1.3
@@ -167,7 +167,7 @@
 	[concat [$o info ${prefix}nonposargs $m] $arglist] \
 	[$o info ${prefix}body $m]
     foreach p {pre post} {
-      if {[$o info ${prefix}$p $m]!=""} {lappend r [$o info ${prefix}$p $m]}
+      if {[$o info ${prefix}$p $m] ne ""} {lappend r [$o info ${prefix}$p $m]}
     }
     return $r
   }
Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Oct 2007 10:57:07 -0000	1.44
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	8 Oct 2007 00:06:37 -0000	1.45
@@ -939,7 +939,8 @@
   } {
     my instvar object_type supertype pretty_name pretty_plural \
         table_name id_column name_method abstract_p
-    
+
+    my check_default_values
     my check_table_atts
 
     # The default supertype is acs_object. If the supertype
@@ -1073,6 +1074,7 @@
     Check table_name and id_column and set meaningful
     defaults, if these attributes are not provided.
   } {
+    my check_default_values
     if {![my exists table_name]} {
       if {[regexp {^::([^:]+)::} [self] _ head]} {
 	set tail [namespace tail [self]]
@@ -1089,12 +1091,13 @@
     }
   }
 
-  ::xo::db::Class instproc init {} {
+  ::xo::db::Class instproc check_default_values {} {
     my instvar pretty_name pretty_plural
-
     if {![info exists pretty_name]}   {set pretty_name [namespace tail [self]]}
     if {![info exists pretty_plural]} {set pretty_plural $pretty_name}
+  }
 
+  ::xo::db::Class instproc init {} {
     if {![::xo::db::Class object_type_exists_in_db -object_type [my object_type]]} {
       my create_object_type
     }