Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.204 -r1.205
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Apr 2010 10:34:52 -0000	1.204
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Apr 2010 11:53:09 -0000	1.205
@@ -613,6 +613,14 @@
     }
   }
 
+  #Package instproc make_new_child_link {-form -parent -name -nls_language -return_url} {
+  #  my instvar id
+  #  if {[info exists form]} {
+  #    return [my make_link -with_entities 0 $parent \
+  #                create-child form return_url title name nls_language]
+  #  }
+  #}
+
   Package instproc create_new_snippet {
     {-object_type ::xowiki::Page}
     provided_name