Index: openacs-4/packages/dotlrn/www/admin/user-nuke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user-nuke.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/user-nuke.tcl	8 Aug 2006 21:26:28 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/user-nuke.tcl	1 Nov 2013 21:08:34 -0000	1.6
@@ -34,10 +34,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 {