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 -N -r1.54 -r1.55
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Jan 2008 13:09:34 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Feb 2008 02:20:08 -0000	1.55
@@ -1553,9 +1553,8 @@
       append column_spec " REFERENCES $references" 
     } elseif {$id_column} {
       set sc [[my domain] info superclass]
-      if {![$sc istype ::xo::db::Object]} {set sc ::xo::db::Object}
-      #todo: 2x set not necessary (critem) 
-      append column_spec " REFERENCES [$sc set table_name]([$sc set id_column])\
+      if {![$sc istype ::xo::db::Class]} {set sc ::xo::db::Object}
+      append column_spec " REFERENCES [$sc table_name]([$sc id_column])\
 		ON DELETE CASCADE"
     }
     #
Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	20 Sep 2007 11:57:04 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	11 Feb 2008 02:20:08 -0000	1.12
@@ -207,8 +207,10 @@
   blocking a request thread. This is especially important when large files are 
   requested over slow (e.g. dial-ip) connections.
 } {
-  #ns_log notice "statuscode = $statuscode, filename=$filename"
+  ns_log notice "statuscode = $statuscode, filename=$filename"
   set size [file size $filename]
+  ns_setexpires 1000000
+  ns_log notice "expires-set $filename"
   if {[my write_headers $statuscode $mime_type $size]} {
     set ch [ns_conn channel]
     thread::transfer [my get_tid] $ch
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 -N -r1.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	18 Jan 2008 11:41:37 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	11 Feb 2008 02:20:08 -0000	1.14
@@ -99,7 +99,7 @@
     {-parent_id -100}
   } {
     Check, whether an content item with the given name exists.
-    If not, return 0.
+    If the item exists, return its item_id, otherwise 0.
 
     @return item_id
   } {