diff --git a/A-gent.cabal b/A-gent.cabal
--- a/A-gent.cabal
+++ b/A-gent.cabal
@@ -9,7 +9,7 @@
 build-type: Simple
                                               
 name: A-gent
-version: 0.11.0.8
+version: 0.11.0.9
 
 synopsis: Polite & well educated LLM agent with excellent manners that always behaves well
 description: Polite and well educated LLM agent with excellent manners that always behaves well
diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for Λ-gent
 
+## 0.11.0.9 -- 2026-04-16
+
+* Minor bug fixes.
+
 ## 0.11.0.8 -- 2026-04-15
 
 * Refactored `/pile` to no longer storing a `find` filter but the absolute path
@@ -31,7 +35,7 @@
   
   > **NOTE**: Fix is not verified. Well, this update will confirm (or not).
   
-  * Package is NO longer marked as broken: <https://github.com/NixOS/nixpkgs/blob/haskell-updates/pkgs/development/haskell-modules/configuration-hackage2nix/broken.yaml»
+  * Package is NO longer marked as broken: https://github.com/NixOS/nixpkgs/blob/haskell-updates/pkgs/development/haskell-modules/configuration-hackage2nix/broken.yaml
 
 * Added `withExitCodeStdIn` as `curl` has a limit on data that can be sent as a
   parameter.
diff --git a/src/Agent/LLM.hs b/src/Agent/LLM.hs
--- a/src/Agent/LLM.hs
+++ b/src/Agent/LLM.hs
@@ -203,7 +203,7 @@
       ( mapM_ printLn . COM.combine . COM.chits True . prev . chit . hist
       ) ctx >>
       printLn "* Chats:" >>
-      ( mapM_ print   . COM.combine . COM.chats True .        chat . hist
+      ( mapM_ printLn . COM.combine . COM.chats True .        chat . hist
       ) ctx >>
       loop (ctx { hist = ((hist ctx) { view = [] }) }) eval
     Context { hist = History { view = [ Chits ] } } ->
@@ -232,9 +232,6 @@
           case root ctx of
             Just (INT.Root cs) -> cs
             Nothing            -> []
-    Context { list = Just _ } ->
-      eval ctx [  ] >>= \ (upd, _) ->
-      loop upd eval
     Context { file = Just _ }   ->
       eval    ctx [ ] >>= \ (upd, res) ->
       printLn res     >>
@@ -412,6 +409,12 @@
                 ' ':cs -> readMaybe cs :: Maybe Int
                 ______ -> Nothing
         caseList txt mfil =
+          ( case fil of
+              Nothing ->
+                printLn "Invalid use of list. Use space between cmd and filter"
+              _______ ->
+                pure ()
+          ) >>
           loop (nxt txt (ctx { list = fil }) Nothing) eval
           where
             fil =
@@ -452,7 +455,8 @@
         (show . AEC.bold . AEC.sgr)
         ("Λ-" ++ (map toLower . show . mode) ctx ++ "> ")
       read      = input
-      print     = output . show . AEC.faint . AEC.sgr
+      -- print     = output . show . AEC.faint . AEC.sgr
+      print     = output
       printLn x = print $ x ++ "\n"
 
 head :: String