diff --git a/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs b/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
index 5c7d84ce..a11e0773 100644
--- a/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
+++ b/hbs2-core/lib/HBS2/Net/Auth/GroupKeySymm.hs
@@ -255,7 +255,7 @@ instance ( MonadIO m
     let hashes = catMaybes hashes'
 
 --     -- FIXME: handle-hardcode
-    let pt = toPTree (MaxSize 256) (MaxNum 256) hashes -- FIXME: settings
+    let pt = toPTree (MaxSize 4096) (MaxNum 256) hashes -- FIXME: settings
 
     -- FIXME: this-might-not-be-true
     result <- runWriterT $ makeMerkle 0 pt $ \(hx,mt,bss) -> do
diff --git a/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs b/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
index 37d43327..0bfd9c36 100644
--- a/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
+++ b/hbs2-core/lib/HBS2/Storage/Operations/ByteString.hs
@@ -41,7 +41,7 @@ instance (MonadIO m, h ~ HbSync, Storage s h ByteString m) => MerkleWriter ByteS
                 & S.toList_
 
     -- FIXME: handle-hardcode
-    let pt = toPTree (MaxSize 256) (MaxNum 256) hashes -- FIXME: settings
+    let pt = toPTree (MaxSize 4096) (MaxNum 256) hashes -- FIXME: settings
 
     makeMerkle 0 pt $ \(_,_,bss) -> do
       void $ putBlock sto bss
diff --git a/hbs2-storage-simple/lib/HBS2/Storage/Simple/Extra.hs b/hbs2-storage-simple/lib/HBS2/Storage/Simple/Extra.hs
index 5b0f7a4b..2909c948 100644
--- a/hbs2-storage-simple/lib/HBS2/Storage/Simple/Extra.hs
+++ b/hbs2-storage-simple/lib/HBS2/Storage/Simple/Extra.hs
@@ -30,7 +30,7 @@ import Streaming qualified as S
 import System.IO
 
 pieces :: Integral a => a
-pieces = 1024
+pieces = 4096
 
 -- FIXME: to-remove-in-a-sake-of-operations-class
 class MonadIO m => SimpleStorageExtra a m  where
@@ -89,7 +89,7 @@ instance MonadIO m => SimpleStorageExtra (S.Stream (S.Of ByteString) m ()) m whe
 instance MonadIO m => SimpleStorageExtra [HashRef] m where
   putAsMerkle ss hashes = do
 
-    let pt = toPTree (MaxSize pieces) (MaxNum pieces) hashes -- FIXME: settings
+    let pt = toPTree (MaxSize pieces) (MaxNum 256) hashes -- FIXME: settings
 
     root <- makeMerkle 0 pt $ \(_,_,bs) -> void $ putBlock ss bs
 
@@ -105,7 +105,7 @@ instance MonadIO m => SimpleStorageExtra ByteString m where
                 & S.map (HashRef . hashObject)
                 & S.toList_
 
-    let pt = toPTree (MaxSize pieces) (MaxNum pieces) hashes -- FIXME: settings
+    let pt = toPTree (MaxSize pieces) (MaxNum 256) hashes -- FIXME: settings
 
     root <- makeMerkle 0 pt $ \(_,_,bss) -> void $ putBlock ss bss