Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.105 -r1.106
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	16 Oct 2007 19:04:57 -0000	1.105
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	17 Oct 2007 10:49:12 -0000	1.106
@@ -742,6 +742,21 @@
 	  $ff(_title) value ""
 	}
 	if {!$anon_instances} {$ff(_name) value ""}
+        foreach var {title detail_link text} {
+          if {[my exists_query_parameter $var]} {
+            set value [my query_parameter $var]
+            switch -- $var {
+              detail_link {
+                set f [my lookup_form_field -name $var $form_fields]
+                $f value $value
+              }
+              title - text {
+                set f [my lookup_form_field -name _$var $form_fields]
+              }
+            }
+            $f value $value
+          }
+        }
       }
     }
     
@@ -1100,9 +1115,14 @@
     if {[my exists_query_parameter "template_file"]} {
       set template_file [my query_parameter "template_file"]
     }
+    foreach var {return_url template_file title detail_link text} {
+      if {[my exists_query_parameter $var]} {
+        set $var [my query_parameter $var]
+      }
+    }
     $package_id returnredirect \
         [export_vars -base [$package_id pretty_link [$f name]] \
-	     {{m edit} return_url name template_file}]
+	     {{m edit} return_url name template_file title detail_link text}]
   }