Index: openacs-4/packages/dotlrn/www/subcommunity-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/subcommunity-new.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/www/subcommunity-new.tcl	29 Sep 2013 13:49:45 -0000	1.25
+++ openacs-4/packages/dotlrn/www/subcommunity-new.tcl	1 Nov 2013 21:08:32 -0000	1.26
@@ -80,8 +80,8 @@
     set extra_vars [ns_set create]
     ns_set put $extra_vars join_policy $join_policy
 
-    if {![string equal $parent_type [dotlrn_club::community_type]] &&
-        ![string equal $parent_type dotlrn_community]} {
+    if {$parent_type ne [dotlrn_club::community_type] &&
+        $parent_type ne "dotlrn_community" } {
             # we want to make a subgroup of a class instance
             # get the term_id, since the subgroup should not
             # outlive the class
@@ -110,8 +110,8 @@
             -privilege admin
 
         # for a subcomm of a "class instance" set the start and end dates
-        if {![string equal $parent_type [dotlrn_club::community_type]] &&
-            ![string equal $parent_type "dotlrn_community"]} {
+        if {$parent_type ne [dotlrn_club::community_type] &&
+            $parent_type ne "dotlrn_community" } {
 
             dotlrn_community::set_active_dates \
                 -community_id $subcomm_id \