Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Sep 2011 14:34:01 -0000	1.61
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Sep 2011 19:48:35 -0000	1.62
@@ -72,12 +72,12 @@
   ns_log notice "Defining minimal XOTcl 1 compatibility"
   ::nsf::method::alias ::xo::Attribute instvar ::nsf::methods::object::instvar
 
-  # the following line would cause a dependency of an nx object to xotcl (serializer)
-  #::nsf::method::alias ::nx::Slot istype ::nsf::classes::xotcl::Object::istype
-  ::nx::Slot public method istype {class}  {
-    return [expr {[::nsf::is class $class] && 
-		  [::nsf::dispatch [self] ::nsf::methods::object::info::hastype $class]}]
-  }
+  # The following line would cause a dependency of an nx object to
+  # xotcl (serializer); since XOTcl depends on NX, this would be a
+  # cyclic dependency.
+  #     ::nsf::method::alias ::nx::Slot istype ::nsf::classes::xotcl::Object::istype
+  # Therefore, we just grab the body to reduce dependencies on nsf internals
+  ::nx::Slot public method istype {class}  [::nx::Object info method body ::nsf::classes::xotcl::Object::istype]
   ::nx::Slot public alias set -frame object ::set
   ::nx::Slot public method exists {var}   {::nsf::var::exists [self] $var}
   ::nx::Object public method serialize {} {::Serializer deepSerialize [self]}