diff --git a/src/Compilers/VisualBasic/Portable/Operations/VisualBasicOperationFactory_QueryLambdaRewriter.vb b/src/Compilers/VisualBasic/Portable/Operations/VisualBasicOperationFactory_QueryLambdaRewriter.vb
index c5e2c7260a90fecf36ebcd8655786f9dc7d32526..64a57c6035d86059f5dc2cd00b273958da080281 100644
--- a/src/Compilers/VisualBasic/Portable/Operations/VisualBasicOperationFactory_QueryLambdaRewriter.vb
+++ b/src/Compilers/VisualBasic/Portable/Operations/VisualBasicOperationFactory_QueryLambdaRewriter.vb
@@ -69,8 +69,6 @@ Namespace Microsoft.CodeAnalysis.Semantics
             Private ReadOnly _uniqueNodes As New HashSet(Of BoundParameter)
 
             Public Overrides Function VisitParameter(node As BoundParameter) As BoundNode
-                node = DirectCast(MyBase.VisitParameter(node), BoundParameter)
-
                 If node.ParameterSymbol?.ContainingSymbol.IsQueryLambdaMethod AndAlso Not _uniqueNodes.Add(node) Then
                     node = New BoundParameter(node.Syntax, node.ParameterSymbol, node.IsLValue, node.SuppressVirtualCalls, node.Type, node.HasErrors)
                 End If
diff --git a/src/Compilers/VisualBasic/Test/Semantic/Semantics/QueryExpressions.vb b/src/Compilers/VisualBasic/Test/Semantic/Semantics/QueryExpressions.vb
index 91cfe507fb6426027cc25d413262732160a67a8c..c828b8865802c39e8dad8143543e6a6d6b0bf43a 100644
--- a/src/Compilers/VisualBasic/Test/Semantic/Semantics/QueryExpressions.vb
+++ b/src/Compilers/VisualBasic/Test/Semantic/Semantics/QueryExpressions.vb
@@ -1,4 +1,4 @@
-' Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
+' Copyright (c) Microsoft.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.
 
 Imports Microsoft.CodeAnalysis.Test.Utilities
 Imports Microsoft.CodeAnalysis.VisualBasic
@@ -155,8 +155,6 @@ End Class
 Module Module1
     Sub Main()
         Dim q As New QueryAble()
-        Dim q1 As Object = From s In q Where s > 0
-        System.Console.WriteLine("-----")
         Dim q2 As Object = From s In q Where s > 0 Where 10 > s'BIND:"From s In q Where s > 0 Where 10 > s"
     End Sub
 End Module]]>.Value
@@ -536,8 +534,6 @@ End Class
 
 Module Module1
     Sub Main()
-        Dim q As New QueryAble2()
-        Dim q1 As Object = From s In q
         Dim y = From z In New C Select z Select z = z.ToString() Select z.ToUpper()'BIND:"From z In New C Select z Select z = z.ToString() Select z.ToUpper()"
     End Sub
 End Module]]>.Value