diff --git a/fixme-new/lib/Fixme/Run/Internal.hs b/fixme-new/lib/Fixme/Run/Internal.hs
index 8bf3c7b4..e2a2b48e 100644
--- a/fixme-new/lib/Fixme/Run/Internal.hs
+++ b/fixme-new/lib/Fixme/Run/Internal.hs
@@ -361,7 +361,7 @@ refchanExport = do
   withState do
     what <- select_ @_ @FixmeExported [qc|select o,w,k,cast (v as text) from object order by o, k, v|]
 
-    let chu  = chunksOf 10000 what
+    let chu  = chunksOf 1000 what
 
     for_ chu $ \x -> do