diff --git a/test/TestQuoteSourceClient.hs b/test/TestQuoteSourceClient.hs
index 0ed9c85..1a0f10d 100644
--- a/test/TestQuoteSourceClient.hs
+++ b/test/TestQuoteSourceClient.hs
@@ -52,9 +52,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
           timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
           value = 1000,
           volume = 1}
-      yield
-      writeChan chan (Just tick)
-      yield
+      forkIO $ writeChan chan (Just tick)
       recvdTick <- readChan clientChan
       tick @=? recvdTick)))