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.4 -r1.5
--- openacs-4/packages/xotcl-core/www/show-object.tcl	18 Dec 2006 08:06:37 -0000	1.4
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	18 Dec 2006 10:11:46 -0000	1.5
@@ -25,11 +25,12 @@
   ad_script_abort
 }
 
+interp alias {} DO {} ::xotcl::api inscope $scope 
+
 set my_class [DO $object info class]
 set title "[::xotcl::api object_link $scope $my_class] $object"
 set isclass [::xotcl::api isclass $scope $object]
 
-interp alias {} DO {} ::xotcl::api inscope $scope 
 set s [DO Serializer new]
 
 set dimensional_slider [ad_dimensional {