Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.77 -r1.78
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Jun 2008 11:46:52 -0000	1.77
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Jun 2008 11:25:59 -0000	1.78
@@ -520,6 +520,10 @@
 
   Class user_id -superclass numeric -parameter {
   }
+  user_id instproc initialize {} {
+    next
+    my set is_party_id 1
+  }
   user_id instproc pretty_value {v} {
     return [::xo::get_user_name $v]
   }