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}]
   }
 
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -r1.22.2.14 -r1.22.2.15
--- openacs-4/packages/xotcl-core/www/show-object.tcl	14 Jan 2016 08:16:02 -0000	1.22.2.14
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	25 Jan 2016 07:05:39 -0000	1.22.2.15
@@ -46,6 +46,9 @@
 
 interp alias {} DO {} ::xo::api scope_eval $scope 
 
+# get object fully qualified
+set object [DO namespace origin $object]
+
 set my_class [DO xo::getObjectProperty $object class]
 set title "$my_class $object"
 set isclass [::xo::api isclass $scope $object]
@@ -325,7 +328,9 @@
       }
       set out [local_api_documentation -proc_type $type $show_methods $scope $object proc $m]
       if {$out ne ""} {
+        ns_log notice "CALL [list api_src_doc $out $show_source $scope $object proc $m]"
         append method_output [api_src_doc $out $show_source $scope $object proc $m]
+        ns_log notice "CALL [list api_src_doc $out $show_source $scope $object proc $m] DONE"
       }
     }
     if {$method_output ne ""} {
@@ -414,7 +419,7 @@
   if {$dot eq "" && [file executable /usr/bin/dot]} {set dot /usr/bin/dot}
   if {$dot eq ""} {
     #ns_return 404 plain/text "dot not found"
-    ns_log warning "no dot available"
+    ns_log warning "program 'dot' is not available"
     #ad_script_abort
   } else {