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.63 -r1.64
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	15 Apr 2008 12:17:16 -0000	1.63
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	21 Apr 2008 10:29:28 -0000	1.64
@@ -581,7 +581,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 strpos(proname,'__') > 0
+        where strpos(proname,'__') > 1
       }]
     }