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.23 -r1.24
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	29 Dec 2006 11:01:36 -0000	1.23
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	29 Dec 2006 11:08:19 -0000	1.24
@@ -54,7 +54,7 @@
     my instvar data
     set __fields ""
     set field_list [my field_list]
-    if {[::xo::has_ltree]} {set field_list [linsert $field_list 2 page_order]}
+    if {[::xo::db::has_ltree]} {set field_list [linsert $field_list 2 page_order]}
     foreach __field $field_list {
       set __spec [my set f.$__field]
       if {[string first "richtext" [lindex $__spec 0]] > -1} {