Index: openacs-4/packages/dotlrn-dotlrn/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.2 -r1.2.12.1
--- openacs-4/packages/dotlrn-dotlrn/tcl/apm-callback-procs.tcl	24 Jul 2004 08:34:15 -0000	1.2
+++ openacs-4/packages/dotlrn-dotlrn/tcl/apm-callback-procs.tcl	18 Aug 2014 21:12:20 -0000	1.2.12.1
@@ -22,7 +22,7 @@
 
        set group_id [db_string group_id_from_name "
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
-        if {![empty_string_p $group_id] } {
+        if {$group_id ne "" } {
 
         #Admin privs
         #permission::grant \
Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl,v
diff -u -N -r1.19 -r1.19.8.1
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	8 Aug 2006 21:26:33 -0000	1.19
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	18 Aug 2014 21:12:20 -0000	1.19.8.1
@@ -137,13 +137,13 @@
         # we only need to check for community_id in the ns_set
         set community_id [ns_set get $args "community_id"]
 
-        if {![empty_string_p $community_id]} {
+        if {$community_id ne ""} {
             # portal_id is a community portal 
             set community_type \
                 [dotlrn_community::get_community_type_from_community_id \
                      $community_id]
             
-            if {[string equal $community_type "dotlrn_community"]} {
+            if {$community_type eq "dotlrn_community"} {
                 set page_name [get_subcomm_default_page]
             } else {
                 set page_name [get_community_default_page]