Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Nov 2009 10:57:26 -0000	1.36
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	26 Nov 2009 12:02:16 -0000	1.37
@@ -105,7 +105,7 @@
     if {[my isobject ::$item_id]} {
       return [::$item_id parent_id]
     }
-    db_1row "get_parent" "select parent_id from cr_items where item_id = :item_id"
+    db_1row [my qn "get_parent"] "select parent_id from cr_items where item_id = :item_id"
     return $parent_id
   }
 
@@ -121,7 +121,7 @@
     if {[my isobject ::$item_id]} {
       return [::$item_id parent_id]
     }
-    db_1row "get_name" "select name from cr_items where item_id = :item_id"
+    db_1row  [my qn "get_name"] "select name from cr_items where item_id = :item_id"
     return $name
   }
 
@@ -135,7 +135,7 @@
     @return list of item_ids
   } {
     set items [list]
-    foreach item_id [db_list "get_child_items" \
+    foreach item_id [db_list [my qn "get_child_items"] \
                          "select item_id from cr_items where parent_id = :item_id"] {
       eval lappend items $item_id [my [self proc] -item_id $item_id]
     }