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 -N -r1.59 -r1.60
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 May 2011 17:48:09 -0000	1.59
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	15 Jul 2011 08:10:25 -0000	1.60
@@ -76,7 +76,7 @@
   #::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]}]
+		  [::nsf::object::dispatch [self] ::nsf::methods::object::info::hastype $class]}]
   }
   ::nx::Slot public alias set -frame object ::set
   ::nx::Slot public method exists {var}   {::nsf::var::exists [self] $var}