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.56 -r1.57
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Mar 2008 12:01:17 -0000	1.56
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Mar 2008 23:15:59 -0000	1.57
@@ -425,7 +425,18 @@
     my set widget_type text
     foreach p [list size maxlength] {if {[my exists $p]} {my set html($p) [my $p]}}
   }
+  ###########################################################
+  #
+  # ::xowiki::FormField::password
+  #
+  ###########################################################
 
+  Class FormField::password -superclass FormField::text 
+  FormField::password instproc initialize {} {
+    next
+    my set widget_type password
+    my type password
+  }
   ###########################################################
   #
   # ::xowiki::FormField::numeric