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.3 -r1.4
--- openacs-4/packages/xotcl-core/www/show-object.tcl	30 Dec 2005 00:04:45 -0000	1.3
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	18 Dec 2006 08:06:37 -0000	1.4
@@ -17,6 +17,16 @@
 set context [list "XOTcl"]
 set output ""
 ::xotcl::api scope_from_object_reference scope object
+set isobject [::xotcl::api isobject $scope $object]
+
+if {!$isobject} {
+  ad_return_error "Object Error" "I was unable to access object $object. 
+	Might this be a temporary object?"
+  ad_script_abort
+}
+
+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 
@@ -113,9 +123,9 @@
 
   array unset doc_elements
 }
-set my_class [DO $object info class]
+
 set obj_create_source "$my_class create $object"
-set title "[::xotcl::api object_link $scope $my_class] $object"
+
 set class_references ""
 
 if {$isclass} {