Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.237 -r1.238
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	17 Nov 2010 08:46:34 -0000	1.237
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	22 Nov 2010 12:19:19 -0000	1.238
@@ -1518,6 +1518,9 @@
         $f save_new
         set folder_id [$f item_id]
 
+	::xo::db::sql::acs_object set_attribute -object_id_in $folder_id \
+	    -attribute_name_in context_id -value_in $id
+
         my log "CREATED folder '$name' and parent $parent_id ==> $folder_id"
       }