Index: openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl	7 Jun 2001 20:26:06 -0000	1.2
@@ -21,7 +21,7 @@
 } {
     # We cannot move folders to be their own children
     if { $folder_p == "t" } {
-	set exclude_folders "and bookmark_id not in (select bookmark_id from bm_bookmarks where folder_p = 't' and owner_id = :user_id start with parent_id = :bookmark_id connect by bookmark_id = parent_id)"
+	set exclude_folders [db_map exclude_folders]
     } else {
 	set exclude_folders ""
     }