Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.287 -r1.288 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 15 Nov 2010 13:49:07 -0000 1.287 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 14 Jan 2011 10:37:43 -0000 1.288 @@ -1456,7 +1456,8 @@ set save_slot $slot if {$slot eq ""} { # We have no slot, so create a minimal slot. This should only happen for instance attributes - set slot [::xo::Attribute new -pretty_name $name -datatype text -volatile -noinit] + set slot [::xo::Attribute new -pretty_name $name -datatype text -noinit] + $slot destroy_on_cleanup } set spec_list [list]