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.76.2.45 -r1.76.2.46
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Mar 2021 16:11:17 -0000	1.76.2.45
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	16 Mar 2021 12:00:09 -0000	1.76.2.46
@@ -775,6 +775,7 @@
         package_id
         {parent_id -100}
         {publish_status ready}
+        {storage_type text}        
       }
 
   CrItem::slot::revision_id default 0
@@ -806,7 +807,7 @@
       #   :msg "$slot_name [$cls table_name] [$cls id_column] length=[string length $content]"
       # }
       if {![info exists :storage_type] || $storage_type ne ${:storage_type}} {
-        ad_log warning "we cannot get rid of the instvar storage_type yet"
+        ad_log warning "we cannot get rid of the instvar storage_type yet (exists [info exists :storage_type])"
       }
       if {$storage_type eq "file"} {
         ::xo::dc dml fix_content_length "update cr_revisions \