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.45 -r1.46
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	8 Oct 2007 00:06:37 -0000	1.45
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	12 Oct 2007 23:11:56 -0000	1.46
@@ -566,7 +566,7 @@
           upper(substring(proname from 0 for position('__' in proname))) as package_name,
           upper(substring(proname from position('__' in proname)+2)) as object_name 
         from pg_proc 
-        where substring(proname,'__') > 0
+        where strpos(proname,'__') > 0
       }]
     }