diff --git a/src/fsharp/FSharp.Core/string.fs b/src/fsharp/FSharp.Core/string.fs
index 18ead1299c0..e28df925efd 100644
--- a/src/fsharp/FSharp.Core/string.fs
+++ b/src/fsharp/FSharp.Core/string.fs
@@ -20,7 +20,7 @@ namespace Microsoft.FSharp.Core
 
         [<CompiledName("Concat")>]
         let concat sep (strings : seq<string>) =  
-            String.Join(sep, Seq.toArray strings)
+            String.Join(sep, strings)
 
         [<CompiledName("Iterate")>]
         let iter (f : (char -> unit)) (str:string) =