Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	4 Jun 2006 00:45:45 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	10 Jan 2007 21:22:09 -0000	1.8
@@ -74,7 +74,7 @@
                  [_ acs-subsite.Grant_Permission] "${perm_url}grant?[export_vars {return_url application_url object_id}]" [_ acs-subsite.Grant_Permission] \
                  [_ acs-subsite.Search_For_Exist_User] $user_add_url [_ acs-subsite.Search_For_Exist_User]]
 
-if { ![empty_string_p $context_id] } {
+if { $context_id ne "" } {
     set inherit_p [permission::inherit_p -object_id $object_id]
 
     if { $inherit_p } {
@@ -117,7 +117,7 @@
 # We do not include site-wide admins in the list
 
 db_multirow -extend { name_url } permissions permissions {} {
-    if { [string equal $object_type "user"] && $grantee_id != 0 } {
+    if { $object_type eq "user" && $grantee_id != 0 } {
         set name_url [acs_community_member_url -user_id $grantee_id]
     }
 }