Index: openacs-4/packages/cms/tcl/perm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/perm-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/cms/tcl/perm-procs.tcl	15 Aug 2002 03:39:34 -0000	1.6
+++ openacs-4/packages/cms/tcl/perm-procs.tcl	16 Nov 2004 22:32:46 -0000	1.7
@@ -59,7 +59,7 @@
   template::util::get_opts $args 
 
   if { [template::util::is_nil opts(user_id)] } {
-    set user_id [User::getID]
+    set user_id [auth::require_login]
   } else {
     set user_id $opts(user_id)
   }