Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	4 Nov 2008 20:45:38 -0000	1.54
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	23 Nov 2008 18:43:43 -0000	1.55
@@ -72,7 +72,7 @@
   }
   Link instproc resolve {} {
     #my msg "--lookup of [my name] -page [my page]"
-    return [::xo::db::CrClass lookup -name [my name] -parent_id [my parent_id]]
+    return [[my package_id] lookup -name [my name] -parent_id [my parent_id]]
   }
   Link instproc render_found {href label} {
     return "<a [my atts] [my mk_css_class] href='$href'>$label</a>"
@@ -257,7 +257,7 @@
     set item_id [next]
     # my log "-- file, lookup of [my name] returned $item_id"
     if {$item_id == 0 && [regsub {^file:} [my name] image: name]} {
-      set item_id [::xo::db::CrClass lookup -name $name -parent_id [my parent_id]]
+      set item_id [[my package_id] lookup -name $name -parent_id [my parent_id]]
     }
     return $item_id
   }
@@ -313,7 +313,7 @@
     set item_id [next]
     my log "--file, lookup of [my name] returned $item_id"
     if {$item_id == 0 && [regsub {^swf:} [my name] file: name]} {
-      set item_id [::xo::db::CrClass lookup -name $name -parent_id [my parent_id]]
+      set item_id [[my package_id] lookup -name $name -parent_id [my parent_id]]
       my log "--file, 2nd lookup of $name returned $item_id"
     }
     return $item_id