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.7 -r1.8
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	16 Jun 2006 16:31:01 -0000	1.7
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	8 Jul 2006 02:47:49 -0000	1.8
@@ -157,7 +157,7 @@
       }
     }
     ### provide a nice link
-    my set submit_link [::xowiki::Page pretty_link \
+    #my set submit_link [::xowiki::Page pretty_link \
 			    -package_id [$data set parent_id] \
 			    [$data set name]]
   }
@@ -249,8 +249,7 @@
   }
 
   ObjectForm instproc edit_data {} {
-    my instvar data
-    $data set_payload [$data set text]
+    [my data] initialize_loaded_object
     next
   }