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 -r1.11 -r1.12
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Aug 2006 20:55:02 -0000	1.11
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	5 Aug 2006 22:22:54 -0000	1.12
@@ -204,8 +204,10 @@
   }
 
   WikiForm instproc new_data {} {
+    my instvar data
     my handle_enhanced_text_from_form
     set item_id [next]
+    $data set creation_user [ad_conn user_id]
     my update_references
     return $item_id
   }
@@ -256,7 +258,7 @@
 
   FileForm instproc get_uploaded_file {} {
     my instvar data
-    #my log "--F... [ns_conn url] [ns_conn query] form vars = [ns_set array [ns_getform]]"
+    my log "--F... [ns_conn url] [ns_conn query] form vars = [ns_set array [ns_getform]]"
     set upload_file [$data form_parameter upload_file]
     my log "--F... upload_file = $upload_file"
     if {$upload_file ne ""} {