Index: src/Parser/parser.yy
===================================================================
--- src/Parser/parser.yy	(revision 64cb860f81ad975bb4c8ddeecf81e3be85726b53)
+++ src/Parser/parser.yy	(revision c857ad307ff7de3ac8913f49a5c55b604f4a9d72)
@@ -410,7 +410,11 @@
 		{ $$ = new ExpressionNode( build_fieldSel( $1, build_field_name_REALFRACTIONconstant( *$2 ) ) ); }
 	| postfix_expression ARROW no_attr_identifier
-		{ $$ = new ExpressionNode( build_pfieldSel( $1, build_varref( $3 ) ) ); }
+		{
+			$$ = new ExpressionNode( build_pfieldSel( $1, *$3 == "0" || *$3 == "1" ? build_constantInteger( *$3 ) : build_varref( $3 ) ) );
+		}
 	| postfix_expression ARROW '[' push field_list pop ']' // CFA, tuple field selector
 			{ $$ = new ExpressionNode( build_pfieldSel( $1, build_tuple( $5 ) ) ); }
+	| postfix_expression ARROW INTEGERconstant			// CFA, tuple index
+		{ $$ = new ExpressionNode( build_pfieldSel( $1, build_constantInteger( *$3 ) ) ); }
 	| postfix_expression ICR
 	  	{ $$ = new ExpressionNode( build_unary_ptr( OperKinds::IncrPost, $1 ) ); }