Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.267 -r1.268 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 4 Sep 2008 23:34:33 -0000 1.267 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 5 Sep 2008 17:17:18 -0000 1.268 @@ -1537,8 +1537,13 @@ PageInstance instproc get_form_id {} { return [my page_template] } - + PageInstance instproc get_form_constraints {{-trylocal false}} { + # PageInstances have no form_constraints + return "" + } + + FormPage instproc get_form_constraints {{-trylocal false}} { # We define it as a method to ease overloading. #my msg "is_form=[my isform]" if {$trylocal && [my isform]} {