@@ -31,9 +31,7 @@ let internal memoize (f: 'a -> 'b) : 'a -> 'b =
 let internal memoizeAsync f =
     let cache = System.Collections.Concurrent.ConcurrentDictionary<'a, System.Threading.Tasks.Task<'b>>()
     fun (x: 'a) -> // task.Result serialization to sync after done.
-        cache.GetOrAdd(x, fun x -> // Lazy is needed for "if managed to start multiple before added"
-            let threadfix = lazy( f(x) |> Async.StartAsTask )
-            threadfix.Force()) |> Async.AwaitTask
+        cache.GetOrAdd(x, fun x -> f(x) |> Async.StartAsTask) |> Async.AwaitTask
 
 type Auth = 
     | Credentials of Username : string * Password : string
 
@@ -1359,6 +1359,8 @@ let ``async cache should work``() =
         do! memFunc "a" |> Async.Ignore
         do! memFunc "a" |> Async.Ignore
         do! memFunc "a" |> Async.Ignore
+        do! [|1 .. 30|] |> Seq.map(fun _ -> (memFunc "a")) 
+            |> Async.Parallel |> Async.Ignore
         for i = 1 to 30 do
             Async.Start( memFunc "a" |> Async.Ignore )
             Async.Start( memFunc "a" |> Async.Ignore )
@@ -1367,6 +1369,8 @@ let ``async cache should work``() =
         do! memFunc "a" |> Async.Ignore
         for i = 1 to 30 do
             Async.Start( memFunc "a" |> Async.Ignore )
+        do! [|1 .. 30|] |> Seq.map(fun _ -> (memFunc "a")) 
+            |> Async.Parallel |> Async.Ignore
     } |> Async.RunSynchronously
     x |> shouldEqual 1