diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for scripths
 
+## 0.1.0.2 -- 2026-02-28
+
+* Make blocks out of single lines of code as well.
+
 ## 0.1.0.1 -- 2026-02-24
 
 * Fix code new ine behaviour for code fencing.
diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -38,7 +38,7 @@
 outputFile (x : xs) =
     if "--output=" `isPrefixOf` x
         then Just (drop (length "--output=") x)
-        else outputFile (tail xs)
+        else outputFile (drop 1 xs)
 
 usage :: IO ()
 usage = do
diff --git a/scripths.cabal b/scripths.cabal
--- a/scripths.cabal
+++ b/scripths.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               scripths
-version:            0.1.0.1
+version:            0.1.0.2
 synopsis:           GHCi scripts for standalone execution and Markdown documentation.
 description:        GHCi scripts for standalone execution (with dependency resolution) and Markdown documentation (produces inline output).
 homepage:           https://www.datahaskell.org/
diff --git a/src/ScriptHs/Render.hs b/src/ScriptHs/Render.hs
--- a/src/ScriptHs/Render.hs
+++ b/src/ScriptHs/Render.hs
@@ -101,9 +101,7 @@
 renderBlock (SingleLine (GhciCommand t)) = [t]
 renderBlock (SingleLine (Pragma t)) = [t]
 renderBlock (SingleLine (Import t)) = [t]
-renderBlock (SingleLine (HaskellLine t))
-    | isIOorTH t = wrapMulti [t]
-    | otherwise = [t]
+renderBlock (SingleLine (HaskellLine t)) = wrapMulti [t]
 renderBlock (MultiLine ls)
     | allIOorTH ls = concatMap (\l -> wrapMulti [lineText l]) ls
     | otherwise = wrapMulti (map lineText ls)
diff --git a/test/Test/Render.hs b/test/Test/Render.hs
--- a/test/Test/Render.hs
+++ b/test/Test/Render.hs
@@ -16,7 +16,7 @@
             "Single lines"
             [ testCase "plain expression stays unwrapped" $ do
                 let result = toGhciScript [HaskellLine "print 42"]
-                assertNotWrapped result
+                assertWrapped result ["print 42"]
             , testCase "import stays unwrapped" $ do
                 let result = toGhciScript [Import "import Data.Text"]
                 assertNotWrapped result
@@ -55,8 +55,8 @@
                             ]
                 let blocks = splitBlocks result
                 assertBool
-                    ("expected 1 block, got " ++ show (length blocks) ++ ": " ++ show blocks)
-                    (length blocks == 1)
+                    ("expected 3 blocks, got " ++ show (length blocks) ++ ": " ++ show blocks)
+                    (length blocks == 3)
             ]
         , testGroup
             "Multi-line blocks"