Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	22 Jun 2002 17:07:22 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	5 Jul 2002 23:14:47 -0000	1.8
@@ -41,7 +41,7 @@
             set party_id [ad_conn user_id]
         }
 
-        return [db_string select_permission_p {}]
+        return [db_0or1row select_permission_p {}]
     }
 
     ad_proc -public require_permission {