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.120 -r1.121
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	26 Nov 2009 12:02:52 -0000	1.120
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	17 Jun 2010 10:45:12 -0000	1.121
@@ -415,7 +415,7 @@
       my instvar data
       # we can determine submit link only after nls_langauge 
       # is returned from the user
-      my submit_link [[$data package_id] pretty_link [$data name]]
+      my submit_link [$data pretty_link]
     }
     next
   }
@@ -651,7 +651,7 @@
     if {[$data exists_query_parameter return_url]} {
       set return_url [$data query_parameter return_url]
     }
-    set link [::[$data set package_id] pretty_link [$data set name]]
+    set link [$data pretty_link]
     my submit_link [export_vars -base $link {{m edit} page_template return_url item_id}]
     # my log "-- submit_link = [my submit_link]"
   }
@@ -689,7 +689,7 @@
     foreach __v $__vars {set $__v [$data from_parameter $__v] ""}
     set item_id [next]
 
-    set link [::[$data set package_id] pretty_link [$data set name]]
+    set link [$data pretty_link]
     my submit_link [export_vars -base $link {{m edit} $__vars}]
     # my log "-- submit_link = [my submit_link]"
     return $item_id