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.54 -r1.55 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 25 Jun 2007 12:18:56 -0000 1.54 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 25 Jun 2007 14:10:35 -0000 1.55 @@ -341,7 +341,6 @@ } PageInstance instproc create_form_field {-name -slot {-spec ""} {-configuration ""}} { - # TODO combine with form_constraints, Remove unneeded cases set short_spec [my get_short_spec $name] set spec_list [list] if {$short_spec ne ""} {lappend spec_list $short_spec}