Index: generic/tclBasic.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBasic.c,v
retrieving revision 1.35
diff -u -r1.35 tclBasic.c
--- generic/tclBasic.c	2001/09/01 00:51:31	1.35
+++ generic/tclBasic.c	2001/09/11 12:02:28
@@ -2801,6 +2801,21 @@
 	return result;
     }
 
+    /* 
+     * Hack to avoid repeated recompilation of single-word scripts
+     * [Bug 458361]
+     */
+
+    if (objPtr->typePtr == &tclCmdNameType) {
+	Tcl_Obj *objvPtr = objPtr;
+	result = Tcl_EvalObjv(interp, 1, &objvPtr, flags);
+	if (result != TCL_ERROR) {
+	    Tcl_DecrRefCount(objPtr);
+	    return result;
+	}
+    }
+		       	
+
     /*
      * Prevent the object from being deleted as a side effect of evaling it.
      */
