Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.207 -r1.208
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	1 Nov 2013 21:08:30 -0000	1.207
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	1 Nov 2013 21:54:12 -0000	1.208
@@ -1165,7 +1165,7 @@
     } {
         Returns 1 if the community is a subcommunity, else 0
     } {
-        if {[empty_string_p [get_parent_id -community_id $community_id]]} {
+        if {[get_parent_id -community_id $community_id] eq ""} {
             return 0
         } else {
             return 1
@@ -2128,7 +2128,7 @@
         # acs_attribute_values.attr_value column does not have a "not null"
         # constraint but we will enforce it via our api. if someone circumvents
         # our api then they can die and rot in hell.
-        if {[empty_string_p [get_attribute -community_id $community_id -attribute_name $attribute_name]]} {
+        if {[get_attribute -community_id $community_id -attribute_name $attribute_name] eq ""} {
             db_dml insert_attribute {}
         } else {
             db_dml update_attribute_value {}
@@ -2195,7 +2195,7 @@
     } {
         set valid_p 0
 
-        if {![empty_string_p [get_attribute_id -attribute_name $attribute_name]]} {
+        if {[get_attribute_id -attribute_name $attribute_name] ne ""} {
             set valid_p 1
         }