Index: generic/xotcl.c
===================================================================
diff -u -r73c727f3b02520959569bdeb64b25d282db9b948 -r09b69017b6e76294eb4553341a98e5409d4a5741
--- generic/xotcl.c	(.../xotcl.c)	(revision 73c727f3b02520959569bdeb64b25d282db9b948)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 09b69017b6e76294eb4553341a98e5409d4a5741)
@@ -1856,7 +1856,7 @@
      * uninitialized memory). Most probably Tcl_NextHashEntry() should
      * return 0;
      */
-    if (!hPtr->tablePtr) {
+    if (cmdTable->numEntries < 1) {
       break;
     }
     cmd = (Tcl_Command)Tcl_GetHashValue(hPtr);