Index: openacs-4/packages/cms/tcl/cms-folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/cms-folder-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/cms-folder-procs.tcl	14 Aug 2002 03:57:42 -0000	1.3
+++ openacs-4/packages/cms/tcl/cms-folder-procs.tcl	16 Sep 2002 14:50:39 -0000	1.4
@@ -45,7 +45,8 @@
 } {
 
   if { [string equal $datasource "multirow"] } {
-      return [uplevel 1 "db_multirow $name get_name_type {}"]
+      set sql [db_map get_name_type]
+      return [uplevel 1 "db_multirow $name not_used \"${sql}\""]
   } else {
       return [db_list_of_lists get_name_type ""]
   }