Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -N -r1.37 -r1.38
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	8 Mar 2007 12:05:32 -0000	1.37
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	17 Mar 2007 23:13:21 -0000	1.38
@@ -252,14 +252,14 @@
     
   WikiForm instproc new_request {} {
     my instvar data
-    $data set creator [::xo::get_user_name [ad_conn user_id]]
+    $data set creator [::xo::get_user_name [::xo::cc user_id]]
     next
   }
 
   WikiForm instproc edit_request args {
     my instvar data
     if {[$data set creator] eq ""} {
-      $data set creator [::xo::get_user_name [ad_conn user_id]]
+      $data set creator [::xo::get_user_name [::xo::cc user_id]]
     }
     next
   }
@@ -269,7 +269,7 @@
     my data_from_form -new 1 
     $data set __autoname_prefix [string range [$data set nls_language] 0 1]:
     set item_id [next]
-    $data set creation_user [ad_conn user_id]
+    $data set creation_user [::xo::cc user_id]
     my update_references
     return $item_id
   }