Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.258
diff -u -r1.258 tclExecute.c
--- generic/tclExecute.c	8 Dec 2006 18:08:36 -0000	1.258
+++ generic/tclExecute.c	16 Feb 2007 21:35:35 -0000
@@ -922,6 +922,17 @@
     int result;
     Namespace *namespacePtr;
 
+    if (objPtr->typePtr == &tclListType) {
+	List *listRepPtr = (List *) objPtr->internalRep.twoPtrValue.ptr1;
+	if ((objPtr->bytes == NULL) || (listRepPtr->canonicalFlag)) {
+	    int objc;
+	    Tcl_Obj **objv;
+	
+	    Tcl_ListObjGetElements(NULL, objPtr, &objc, &objv);
+	    return Tcl_EvalObjv(interp, objc, objv, /*flags*/ 0);
+	}
+    }
+
     /*
      * Check that the interpreter is ready to execute scripts
      */
