Index: openacs-4/packages/dotlrn/www/subcommunity-archive.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-archive.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/dotlrn/www/subcommunity-archive.tcl	29 Sep 2013 13:49:45 -0000	1.10
+++ openacs-4/packages/dotlrn/www/subcommunity-archive.tcl	1 Nov 2013 21:08:32 -0000	1.11
@@ -26,7 +26,7 @@
     title:onevalue
 }
 
-if {[empty_string_p $community_id]} {
+if {$community_id eq ""} {
     set community_id [dotlrn_community::get_community_id]
 }
 
@@ -68,7 +68,7 @@
 if {[form is_valid archive_form]} {
     form get_values archive_form community_id referer no_button yes_button
 
-    if {[string equal $yes_button $yes_label]} {
+    if {$yes_button eq $yes_label} {
 
         db_transaction {
             set subcomm_id [dotlrn_community::archive \