Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.378 -r1.379
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Nov 2009 12:28:21 -0000	1.378
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	26 Nov 2009 11:16:44 -0000	1.379
@@ -1303,8 +1303,9 @@
   Page instproc item_id_ref {
     item_id
   } {
-    db_1row "get_name" "select name,parent_id from cr_items where item_id = '$item_id'"
+    set name [::xo::db::Class get_name -id $item_id]
     set type [::xo::db::Class get_object_type -id $item_id]
+    set parent_id [::xo::db::Class get_parent_id -id $item_id]
     #my log "lookup returned name=$name (type $type)"
     if {$type eq "content_folder"} {
       return [list link_type "folder" prefix "" stripped_name $name parent_id $parent_id]
@@ -1366,7 +1367,7 @@
       set item_id $parent_id
       set parent_id $(parent_id)
     } elseif {$element eq ".." || $element eq "..\0"} {
-      db_1row "get_parent" "select parent_id as id from cr_items where item_id = :parent_id"
+      set id [::xo::db::CrClass get_parent_id -item_id $parent_id]
       if {$id > 0} {
         # refuse to traverse past root folder
         set parent_id $id