Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.32 -r1.148.2.33
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Feb 2021 16:41:49 -0000	1.148.2.32
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	19 Feb 2021 10:12:40 -0000	1.148.2.33
@@ -76,7 +76,7 @@
       string    { set type text }
       long_text { set type text }
       date      { set type "timestamp with time zone" }
-      ltree     { set type [expr {[:has_ltree] ? "ltree" : "text" }] }
+      ltree     { set type [expr {[::xo::dc has_ltree] ? "ltree" : "text" }] }
       default   { return [next] }
     }
     return $type