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.97.2.21 -r1.97.2.22
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 Sep 2014 21:19:50 -0000	1.97.2.21
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	22 Sep 2014 09:30:51 -0000	1.97.2.22
@@ -678,6 +678,7 @@
       # delete columns.
       foreach col [dict keys $definition] {
         if {![my exists_column $name $col]} {
+          ns_log notice "xodb: adding column <alter table $name add column $col [dict get $definition $col]>"
           ::xo::dc dml alter-table-$name \
               "alter table $name add column $col [dict get $definition $col]"
         }
@@ -1594,6 +1595,7 @@
     # iterate over the slots and collect the column_specs for table generation
     #
     foreach {slot_name slot} [my array get db_slot] {
+      if {![$slot create_table_attribute]} continue
       set column_name [$slot column_name]
       set column_specs($column_name) \
           [$slot column_spec -id_column [expr {$column_name eq $id_column}]]
@@ -2126,6 +2128,7 @@
         {min_n_values 1} 
         {max_n_values 1}
         {create_acs_attribute true}
+        {create_table_attribute true}
       }
 
   ::xo::db::Attribute instproc create_attribute {} {
@@ -2200,7 +2203,7 @@
 
   ##############
   ::xotcl::MetaSlot create ::xo::db::CrAttribute \
-      -superclass {::xo::db::Attribute} \
+      -superclass {::xo::db::Attribute}
 
   ::xo::db::CrAttribute instproc create_attribute {} {
     # do nothing, if create_acs_attribute is set to false
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.50.2.17 -r1.50.2.18
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Sep 2014 08:09:04 -0000	1.50.2.17
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	22 Sep 2014 09:30:51 -0000	1.50.2.18
@@ -701,10 +701,12 @@
         # "magic attribute "text"
         ::xo::db::CrAttribute create text \
             -pretty_name "Text" \
+            -create_table_attribute false \
             -create_acs_attribute false
         # missing: attribute from cr_items
         ::xo::db::CrAttribute create name \
             -pretty_name "Name" \
+            -create_table_attribute false \
             -create_acs_attribute false
       } \
       -parameter {