Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.10.8.2 -r1.10.8.3
--- openacs-4/packages/file-storage/www/folder-delete.tcl	3 Oct 2013 08:33:58 -0000	1.10.8.2
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	11 Oct 2013 18:22:25 -0000	1.10.8.3
@@ -58,7 +58,7 @@
     } -on_request {
 
     } -on_submit {
-	if {$blocked_p eq "f"} {
+	if {$blocked_p == "f"} {
 	    # they have confirmed that they want to delete the folder
 	    
 	    callback fs::folder_delete -package_id [ad_conn package_id] -folder_id $folder_id
@@ -73,7 +73,7 @@
     -export {folder_id}
    
 
-if { $confirmed_p eq "t" && $blocked_p eq "f" } {
+if { $confirmed_p == "t" && $blocked_p == "f" } {
     # they have confirmed that they want to delete the folder
 
     db_1row parent_id "