Index: openacs-4/packages/workflow/www/admin/delete-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/delete-confirm.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/workflow/www/admin/delete-confirm.tcl	26 Oct 2011 01:11:55 -0000	1.3
+++ openacs-4/packages/workflow/www/admin/delete-confirm.tcl	17 Sep 2013 19:10:35 -0000	1.4
@@ -26,7 +26,7 @@
     {cancel:text(submit) {label {Cancel}}}
 } -on_submit {
 
-    if {![empty_string_p $ok]} {
+    if {$ok ne ""} {
 	switch $type {
 	    role {
 		workflow::role::edit \