Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-admin/www/users/user-add-2.tcl	1 Mar 2005 00:01:21 -0000	1.8
+++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl	10 Jan 2007 21:22:00 -0000	1.9
@@ -26,7 +26,7 @@
     set $var_name $user($var_name)
 }
 
-if { [empty_string_p $password] } {
+if { $password eq "" } {
     set password [ad_generate_random_string]
 }