Index: generic/xotcl.c
===================================================================
diff -u -r10291a90a3fac6b55e8c376c873dad07cab1fa72 -r11668f66e7c1576bf0b46118c033108131303d49
--- generic/xotcl.c	(.../xotcl.c)	(revision 10291a90a3fac6b55e8c376c873dad07cab1fa72)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 11668f66e7c1576bf0b46118c033108131303d49)
@@ -6869,7 +6869,7 @@
 XOTclNextObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
   XOTclCallStackContent *csc = CallStackGetTopFrame(interp, NULL);
 
-  if (!csc->self)
+  if (!csc)
     return XOTclVarErrMsg(interp, "next: can't find self", (char *) NULL);
 
   if (!csc->cmdPtr)