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.15.6.1 -r1.15.6.2 --- openacs-4/packages/xotcl-core/www/show-object.tcl 15 Sep 2013 16:22:40 -0000 1.15.6.1 +++ openacs-4/packages/xotcl-core/www/show-object.tcl 17 Sep 2013 06:52:42 -0000 1.15.6.2 @@ -16,8 +16,13 @@ set context [list "XOTcl"] set output "" + ::xotcl::api scope_from_object_reference scope object -set isobject [::xotcl::api isobject $scope $object] +if {$scope ne "" && ![xo::getObjectProperty $scope isobject]} { + set isobject 0 +} else { + set isobject [::xotcl::api isobject $scope $object] +} if {!$isobject} { ad_return_complaint 1 "Unable to access object $object.