diff --git a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
index 7ffd36ee..68972921 100644
--- a/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
+++ b/hbs2-cli/lib/HBS2/CLI/Run/MetaData.hs
@@ -136,7 +136,8 @@ metaDataEntries = do
           SymbolVal "auto"      -> pure [Auto]
 
           ListVal (SymbolVal "dict" : [ListVal [SymbolVal "encrypted", StringLike key]])
-            -> pure [Encrypted key]
+            -> do
+              pure [Encrypted key]
 
           ListVal (SymbolVal "dict" : [ListVal [SymbolVal x, StringLike y]])  -> do
             pure [MetaDataEntry x y]
@@ -167,6 +168,8 @@ metaDataEntries = do
 
         let meta1  = HM.fromList [  (txt n, txt e) | MetaDataEntry n e <- universeBi opts ]
 
+        error $ show opts
+
         href <- createTreeWithMetadata (meta0 <> meta1) lbs
 
         pure $ mkStr (show $ pretty href)