Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	7 Nov 2007 09:03:14 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	14 Nov 2007 12:01:28 -0000	1.9
@@ -1139,9 +1139,7 @@
     set allowed 0
     #my log "--checking privilege [self args]"
     if {[my exists creation_user]} {
-      if {$user_id == 0 && $login} {
-        auth::require_login
-      } elseif {[my set creation_user] == $user_id} {
+      if {[my set creation_user] == $user_id} {
         set allowed 1
       } else {
         # allow the package admin always access