Index: generic/tclParseExpr.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclParseExpr.c,v
retrieving revision 1.44
diff -u -r1.44 tclParseExpr.c
--- generic/tclParseExpr.c	30 Aug 2006 20:46:20 -0000	1.44
+++ generic/tclParseExpr.c	12 Sep 2006 03:13:12 -0000
@@ -529,8 +529,8 @@
 		    break;
 		}
 
-		/* Special association rules for the ternary operators */
 		if (prec[otherPtr->lexeme] == precedence) {
+		    /* Special association rules for the ternary operators. */
 		    if ((otherPtr->lexeme == QUESTION) 
 			    && (lastOrphanPtr->lexeme != COLON)) {
 			break;
@@ -539,6 +539,10 @@
 			    && (nodePtr->lexeme == QUESTION)) {
 			break;
 		    }
+		    /* Right association rules for exponentiation. */
+		    if (nodePtr->lexeme == EXPON) {
+			break;
+		    }
 		}
 
 		/* Some checks before linking */
