Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -N -r1.23.2.1 -r1.23.2.2
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	18 Mar 2004 15:14:27 -0000	1.23.2.1
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	20 May 2004 17:31:30 -0000	1.23.2.2
@@ -58,9 +58,6 @@
 } {
     if { [empty_string_p $party_id] } {
         set party_id [ad_conn user_id]
-        set no_party_p 1
-    } else {
-        set no_party_p 0
     }    
 
     if { $no_cache_p } {
@@ -76,7 +73,12 @@
                               [parameter::get -package_id [ad_acs_kernel_id] -parameter PermissionCacheTimeout -default 300]]
     }
 
-    if { $no_party_p && [ad_conn user_id] == 0 && [ad_conn untrusted_user_id] != 0 && ![template::util::is_true $permission_p] } {
+    if { 
+        [ad_conn user_id] == 0 && 
+        $party_id == 0 && 
+        [ad_conn untrusted_user_id] != 0 && 
+        ![template::util::is_true $permission_p] 
+    } {
         set untrusted_permission_p [permission_p_not_cached \
                                         -party_id [ad_conn untrusted_user_id] \
                                         -object_id $object_id \