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.39 -r1.40
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	6 Sep 2008 13:02:15 -0000	1.39
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	24 Sep 2008 12:58:44 -0000	1.40
@@ -345,6 +345,7 @@
     if {![info exists party_id]} {
       set party_id [my user_id]
     }
+    # my log "--  context permission user_id=$party_id uid=[::xo::cc user_id] untrusted=[::xo::cc set untrusted_user_id]"
     if {$party_id == 0} {
       set key permission($object_id,$privilege,$party_id)
       if {[my exists $key]} {return [my set $key]}
@@ -358,7 +359,8 @@
       }
       # The permission is not granted for the public.
       # We force the user to login
-      auth::require_login
+      #my log "-- require login"
+      #auth::require_login
       return 0
     }
 
@@ -369,6 +371,8 @@
                      -party_id $party_id \
                      -object_id $object_id \
                      -privilege $privilege]
+    #my log "--  context return [my set $key]"
+    #my set $key
   }
   
 #   ConnectionContext instproc destroy {} {