1 files changed, 1 insertions, 2 deletions
diff --git a/main/Test.hs b/main/Test.hs
index 6896c9a..220f414 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -414,9 +414,8 @@ cmdLoadDeferred = do
     [ tidx ] <- asks tiParams
     Just RunningServer {..} <- gets tsServer
     deferred <- (!! read (T.unpack tidx)) <$> liftIO (readMVar rsDeferredObjects)
-    mvar <- deferredLoad deferred
     out <- asks tiOutput
-    liftIO $ void $ forkIO $ readMVar mvar >>= \case
+    liftIO $ void $ forkIO $ deferredWait deferred >>= \case
         DeferredLoaded sobj -> do
             void $ copyRef st $ storedRef sobj
             header : _ <- return $ BL.lines $ serializeObject $ fromStored sobj