Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.7.2.9 -r1.7.2.10
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	8 Jan 2016 12:30:30 -0000	1.7.2.9
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	25 Jan 2016 07:05:38 -0000	1.7.2.10
@@ -218,7 +218,8 @@
   }
 
   :public object method object_url {{-show_source 0} {-show_methods 1} scope obj} {
-    set object [:scope_eval $scope nsf::object::qualify $obj]
+    #set object [:scope_eval $scope nsf::object::qualify $obj]
+    set object [:scope_eval $scope namespace origin $obj]
     return [export_vars -base /xotcl/show-object {object show_source show_methods}]
   }