Index: openacs-4/etc/install/tcl/user-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/user-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/etc/install/tcl/user-procs.tcl	2 Mar 2004 09:10:36 -0000	1.9
+++ openacs-4/etc/install/tcl/user-procs.tcl	10 Jan 2007 21:21:59 -0000	1.10
@@ -12,7 +12,7 @@
     set user_emails [list]
 
     foreach user_data [get_test_data] {
-        if { [empty_string_p $type] || \
+        if { $type eq "" || \
                 [string equal -nocase [lindex $user_data 4] $type] } {
             
             lappend user_emails [lindex $user_data 2]
@@ -32,7 +32,7 @@
 
 ad_proc ::twt::user::get_password { email } {
 
-    if { [string equal $email  [::twt::config::admin_email]] } {
+    if {$email eq [::twt::config::admin_email]} {
         return [::twt::config::admin_password]
     } else {
         global __demo_users_password