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.138 -r1.139
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Mar 2009 08:58:46 -0000	1.138
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Mar 2009 13:02:28 -0000	1.139
@@ -65,7 +65,11 @@
   FormField proc fc_decode {string} {
     return [string map [list __COMMA__ ,] $string]
   }
+  #FormField proc fc_decode_colon {string} {
+  #  return [string map [list __COLON__ :] $string]
+  #}
 
+
   FormField instproc init {} {
     if {![my exists label]} {my label [string totitle [my name]]}
     if {![my exists id]} {my id [my name]}
@@ -835,6 +839,7 @@
   ###########################################################
 
   Class user_id -superclass numeric -parameter {
+    {format %d}
   }
   user_id instproc initialize {} {
     next