diff --git a/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs b/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs
index f4199a36..842723eb 100644
--- a/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs
+++ b/hbs2-cli/lib/HBS2/CLI/Run/Internal.hs
@@ -600,7 +600,7 @@ internalEntries = do
     entry $ bindMatch "parse-top" $ \case
 
       [SymbolVal w, LitStrVal s] -> do
-        pure $  parseTop s & either (const nil) (mkList . fmap (mkForm w . List.singleton) . fmap fixContext)
+        pure $  parseTop s & either (const nil) (mkForm w . fmap fixContext)
 
       [LitStrVal s] -> do
         pure $  parseTop s & either (const nil) (mkList . fmap fixContext)