Index: openacs-4/packages/acs-subsite/www/register/recover-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.tcl,v
diff -u -r1.16.2.3 -r1.16.2.4
--- openacs-4/packages/acs-subsite/www/register/recover-password.tcl	11 Mar 2021 14:51:19 -0000	1.16.2.3
+++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl	11 Mar 2021 14:56:35 -0000	1.16.2.4
@@ -37,13 +37,15 @@
     -form { {dummy:text(hidden),optional} }
 
 set username_widget text
+set email_widget email
 if { [parameter::get -parameter UsePasswordWidgetForUsername -package_id [ad_acs_kernel_id]] } {
     set username_widget password
+    set email_widget    password
 }
 
 set focus {}
 if { [auth::UseEmailForLoginP] } {
-    ad_form -extend -name recover -form [list [list email:text($username_widget) [list label [_ acs-subsite.Email]]]]
+    ad_form -extend -name recover -form [list [list email:text($email_widget) [list label [_ acs-subsite.Email]]]]
     set user_id_widget_name email
     set focus "email"
 } else {