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.64 -r1.65
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Oct 2012 21:26:03 -0000	1.64
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	1 Nov 2012 23:06:56 -0000	1.65
@@ -69,6 +69,8 @@
   }
 }
 
+set ::xo::naviserver [expr {[ns_info name] eq "NaviServer"}]
+
 if {[info command ::nx::Object] ne ""} {
   ns_log notice "Defining minimal XOTcl 1 compatibility"
   ::nsf::method::alias ::xo::Attribute instvar ::nsf::methods::object::instvar