Index: openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/user-nuke.tcl	28 Jun 2015 12:09:34 -0000	1.3
@@ -35,10 +35,10 @@
 
 set context_bar [list [list users [_ dotlrn.Users]] [_ dotlrn.Nuke]]
 
-if [form is_valid confirm_delete] {
+if {[form is_valid confirm_delete]} {
     form get_values confirm_delete user_id confirmed_p
-    if [string equal $confirmed_p t] {
-	if [catch { dotlrn::remove_user_completely -user_id $user_id } errMsg ] {
+    if {$confirmed_p == "t"} {
+	if {[catch { dotlrn::remove_user_completely -user_id $user_id } errMsg ]} {
         set error_msg $errMsg
 	    ad_return_template user-nuke-error
 	} else {