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 -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	29 Dec 2006 16:58:10 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 Jan 2007 14:50:39 -0000	1.3
@@ -39,7 +39,7 @@
 
   proc has_ltree {} {
     ns_cache eval xotcl_object_cache ::xo::has_ltree {
-      if {[catch {db_1row check_ltree "select * from pg_proc where proname = 'ltree_in'"}]} {
+      if {[db_string check_ltree "select count(*) from pg_proc where proname = 'ltree_in'"] == 0} {
         return 0
       }
       return 1