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.76.2.13 -r1.76.2.14
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	24 Apr 2019 12:22:44 -0000	1.76.2.13
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 May 2019 14:23:40 -0000	1.76.2.14
@@ -789,7 +789,7 @@
 
     CrItem instproc fix_content {revision_id content} {
       [:info class] instvar storage_type
-      # :my msg "--long_text_slots: [[:info class] array get long_text_slots]"
+      # ::msg "--long_text_slots: [[:info class] array get long_text_slots]"
       # foreach {slot_name slot} [[:info class] array get long_text_slots] {
       #   set cls [$slot domain]
       #   set content [set :$slot_name]
@@ -1247,7 +1247,7 @@
     set page_id ${:item_id}
     set live_revision_id [::xo::db::sql::content_item get_live_revision -item_id $page_id]
     set package_id ${:package_id}
-    set base [$package_id url]
+    set base [::$package_id url]
     set sql [::xo::dc select \
                  -map_function_names true \
                  -vars "ci.name, r.revision_id as version_id,\