diff --git a/Utility/DataUnits.hs b/Utility/DataUnits.hs
index 6cae449c76..64c01d9570 100644
--- a/Utility/DataUnits.hs
+++ b/Utility/DataUnits.hs
@@ -73,7 +73,9 @@ dataUnits = storageUnits ++ committeeUnits ++ bandwidthUnits
 {- Storage units are (stupidly) powers of ten. -}
 storageUnits :: [Unit]
 storageUnits =
-	[ Unit (p 8) "YB" "yottabyte"
+	[ Unit (p 10) "QB" "quettabyte"
+	, Unit (p 9) "RB" "ronnabyte"
+	, Unit (p 8) "YB" "yottabyte"
 	, Unit (p 7) "ZB" "zettabyte"
 	, Unit (p 6) "EB" "exabyte"
 	, Unit (p 5) "PB" "petabyte"