diff --git a/src/fsharp/SyntaxTreeOps.fs b/src/fsharp/SyntaxTreeOps.fs
index a2b1949a3e6..2d43ec17ad3 100644
--- a/src/fsharp/SyntaxTreeOps.fs
+++ b/src/fsharp/SyntaxTreeOps.fs
@@ -200,7 +200,7 @@ let rec SimplePatsOfPat synArgNameGenerator p =
 
     | SynPat.Tuple (false, ps, m)
 
-    | SynPat.Paren(SynPat.Tuple (false, ps, m), _) ->
+    | SynPat.Paren(SynPat.Tuple (false, ps, _), m) ->
         let ps2, laterF =
           List.foldBack
             (fun (p', rhsf) (ps', rhsf') ->