Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r020d3d6cbfb9643bd7455c60dfd6c6ec9ab5389a -ra1475605d3bb0257ba00dcf9417d30538a201d55
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 020d3d6cbfb9643bd7455c60dfd6c6ec9ab5389a)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision a1475605d3bb0257ba00dcf9417d30538a201d55)
@@ -417,10 +417,10 @@
 
 
   Class instproc unknown {args} {
-    #puts stderr "use '[self] create $args', not '[self] $args'"
+    # puts stderr "use '[self] create $args', not '[self] $args'"
     set lvl 1
-    if {[self isnext]} {
-      set lvl [self callinglevel]
+    if {[::nsf::current isnextcall]} {
+      set lvl [::nsf::current callinglevel]
     }
     uplevel $lvl [list [self] create {*}$args]
   }