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.89 -r1.90
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	22 Jul 2007 12:01:27 -0000	1.89
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	24 Jul 2007 13:21:39 -0000	1.90
@@ -366,6 +366,7 @@
                -required  [expr {[$slot exists required]  ? [$slot set required]  : "false"}] \
                -default   $default \
                -spec      [join $spec_list ,] \
+               -object    [self] \
               ]
 
     $f destroy_on_cleanup
@@ -717,9 +718,9 @@
 
       # for named entries, just set the entry fields to empty,
       # without changing the instance variables
-      if {!$anon_instances && [my is_new_entry [my name]]} {
+      if {[my is_new_entry [my name]]} {
 	$ff(_title) value ""
-	$ff(_name) value ""
+	if {!$anon_instances} {$ff(_name) value ""}
       }
     }