Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	23 Nov 2007 11:17:33 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	9 Dec 2007 16:45:10 -0000	1.30
@@ -324,26 +324,27 @@
   } {
     if {![info exists party_id]} {
       set party_id [my user_id]
-      #my log "--p party_id $party_id"
-      if {$party_id == 0} {
-        set key permission($object_id,$privilege,$party_id)
-        if {[my exists $key]} {return [my set $key]}
-        set granted [permission::permission_p -no_login -party_id $party_id \
-                         -object_id $object_id \
-                         -privilege $privilege]
-        if {$granted} {
-          my set $key $granted
-          return $granted
-        }
-        # The permission is not granted for the public.
-        # We force the user to login
-        auth::require_login
-        return 0
+    }
+    if {$party_id == 0} {
+      set key permission($object_id,$privilege,$party_id)
+      if {[my exists $key]} {return [my set $key]}
+      #my msg "--p lookup $key"
+      set granted [permission::permission_p -no_login -party_id $party_id \
+                       -object_id $object_id \
+                       -privilege $privilege]
+      if {$granted} {
+        my set $key $granted
+        return $granted
       }
+      # The permission is not granted for the public.
+      # We force the user to login
+      auth::require_login
+      return 0
     }
+
     set key permission($object_id,$privilege,$party_id)
     if {[my exists $key]} {return [my set $key]}
-    #my log "--p lookup $key"
+    #my msg "--p lookup $key"
     my set $key [permission::permission_p -no_login \
                      -party_id $party_id \
                      -object_id $object_id \