Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r9dcea2682e9ff0f6d5d976572b0dc1f026abd662 -r020d3d6cbfb9643bd7455c60dfd6c6ec9ab5389a
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 9dcea2682e9ff0f6d5d976572b0dc1f026abd662)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 020d3d6cbfb9643bd7455c60dfd6c6ec9ab5389a)
@@ -418,7 +418,11 @@
 
   Class instproc unknown {args} {
     #puts stderr "use '[self] create $args', not '[self] $args'"
-    :uplevel [list [self] create {*}$args]
+    set lvl 1
+    if {[self isnext]} {
+      set lvl [self callinglevel]
+    }
+    uplevel $lvl [list [self] create {*}$args]
   }
 
   Object instproc unknown {m args} {