Index: openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/05-doc-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	8 Sep 2006 21:53:12 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/05-doc-procs.tcl	18 Dec 2006 08:06:36 -0000	1.9
@@ -28,12 +28,13 @@
 
 ::xotcl::Object create ::xotcl::api \
     -proc isclass {scope obj} {
-      if {$scope eq ""} {
-	set isclass [::xotcl::Object isclass $obj]
-      } else {
-	set isclass [$scope do ::xotcl::Object isclass $obj]
-      }
-
+      expr {$scope eq "" ? 
+            [::xotcl::Object isclass $obj] : 
+            [$scope do ::xotcl::Object isclass $obj]}
+    } -proc isobject {scope obj} {
+      expr {$scope eq "" ? 
+            [::xotcl::Object isobject $obj] : 
+            [$scope do ::xotcl::Object isobject $obj]}
     } -proc scope {} {
       if {[info exists ::xotcl::currentThread]} {
 	# we are in an xotcl thread; the body won't be accessible directly
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 -N -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} {