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.46 -r1.47
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	12 Oct 2007 23:11:56 -0000	1.46
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Oct 2007 08:07:49 -0000	1.47
@@ -590,10 +590,10 @@
       # Note, that we can as well get the type in future versions
       #
       db_foreach [my qn get_function_params] {
-        select proname, pronargs, proargtypes,prosrc 
+        select proname, pronargs, proargtypes, prosrc 
         from pg_proc 
         where proname = lower(:package_name) || '__' || lower(:object_name)
-        order by pronargs desc 
+        order by pronargs, proargtypes desc 
       } {
         set n 1
         set function_args [list]