diff --git a/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs b/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
index e5e6a0fe..220405a7 100644
--- a/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
+++ b/hbs2-cli/lib/Data/Config/Suckless/Script/File.hs
@@ -40,8 +40,7 @@ glob pat ignore dir action = runContT (callCC $ \exit -> go exit dir) pure
             unless continue (exit ())
         else do
           isD <- liftIO $ doesDirectoryExist fn
-          if not isD then exit ()
-          else do
+          when isD do
             content <- liftIO (try @_ @IOError $ listDirectory  fn)
                          <&> fromRight mempty
             -- TODO: memory-hungry
diff --git a/hbs2-cli/lib/Data/Config/Suckless/Script/Internal.hs b/hbs2-cli/lib/Data/Config/Suckless/Script/Internal.hs
index 31479682..f4c0c8e2 100644
--- a/hbs2-cli/lib/Data/Config/Suckless/Script/Internal.hs
+++ b/hbs2-cli/lib/Data/Config/Suckless/Script/Internal.hs
@@ -867,6 +867,11 @@ internalEntries = do
             pure $ if a == b then mkBool True else mkBool False
           _ -> throwIO (BadFormException @c nil)
 
+    entry $ bindMatch "length" $ \case
+      [ListVal es] -> pure $ mkInt (length es)
+      [StringLike es] -> pure $ mkInt (length es)
+      _ -> pure $ mkInt 0
+
     entry $ bindMatch "nil?" $ \case
       [ListVal []] -> pure $ mkBool True
       _ -> pure $ mkBool False