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.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 May 2007 09:54:52 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 May 2007 23:25:04 -0000	1.14
@@ -78,7 +78,7 @@
     #
     set is_function [db_0or1row [my qn is_function] {
        select 1 from dual
-       where exists (select 1 from user_arguments
+       where exists (select 1 from user_arguments where
 		       package_name = upper(:package_name)
 		       and object_name = upper(:object_name)
 		       and position = 0)