diff --git a/.fixme-new/log b/.fixme-new/log
index 76f5e7eb..903edccf 100644
Binary files a/.fixme-new/log and b/.fixme-new/log differ
diff --git a/fixme-new/lib/Fixme/Run.hs b/fixme-new/lib/Fixme/Run.hs
index 8e780177..5aa1bcb5 100644
--- a/fixme-new/lib/Fixme/Run.hs
+++ b/fixme-new/lib/Fixme/Run.hs
@@ -466,6 +466,9 @@ run what = do
           debug $ green $ pretty s
           updateFixme Nothing hash (fromString a) (fromString b)
 
+        ListVal [SymbolVal "deleted", TimeStampLike _, FixmeHashLike hash] -> do
+          deleteFixme hash
+
         ListVal [SymbolVal "deleted", FixmeHashLike hash] -> do
           deleteFixme hash
 
@@ -547,14 +550,14 @@ run what = do
                       <&> rights
 
 
-          compactStorageClose sto
-
           let top = show $ vcat (fmap pretty entries)
           let theLog = parseTop top & fromRight mempty
 
           liftIO $ withFixmeEnv env (runForms theLog)
           cleanStage
 
+          compactStorageClose sto
+
         ListVal [SymbolVal "no-debug"] -> do
           setLoggingOff @DEBUG