Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.172
diff -u -r1.172 tclExecute.c
--- generic/tclExecute.c	14 Mar 2005 23:14:08 -0000	1.172
+++ generic/tclExecute.c	22 Mar 2005 18:10:09 -0000
@@ -1301,6 +1301,22 @@
 	}
     }
 
+    /*
+     * Shortcut INST_START_CMD - is it cheaper to perform this at every
+     * instruction, or to actually execute the INST_START_CMD instruction
+     * every time it is emitted?
+     */
+
+    while ((*pc == INST_START_CMD)
+            && (((codePtr->compileEpoch == iPtr->compileEpoch)
+	            && (codePtr->nsEpoch == namespacePtr->resolverEpoch))
+	        || (codePtr->flags & TCL_BYTECODE_PRECOMPILED))) {
+	
+	iPtr->cmdCount++;
+	pc += 5;
+    }
+
+
     switch (*pc) {
     case INST_RETURN:
 	{
