diff --git a/plugins/hls-eval-plugin/test/Main.hs b/plugins/hls-eval-plugin/test/Main.hs
index 4fc251048fb..c1a271129ec 100644
--- a/plugins/hls-eval-plugin/test/Main.hs
+++ b/plugins/hls-eval-plugin/test/Main.hs
@@ -88,6 +88,7 @@ tests =
   , goldenWithEval "Reports an error for an incorrect type with :kind" "T13" "hs"
   , goldenWithEval' "Returns a fully-instantiated type for :type" "T14" "hs" (if ghcVersion >= GHC98 then "ghc98.expected" else "expected") -- See https://gitlab.haskell.org/ghc/ghc/-/issues/24069
   , knownBrokenForGhcVersions [GHC92, GHC94, GHC96, GHC98] "type +v does not work anymore with 9.2" $ goldenWithEval "Returns an uninstantiated type for :type +v, admitting multiple whitespaces around arguments" "T15" "hs"
+  , goldenWithEval "T4139" "T4139" "hs"
   , goldenWithEval "Returns defaulted type for :type +d, admitting multiple whitespaces around arguments" "T16" "hs"
   , goldenWithEval ":type reports an error when given with unknown +x option" "T17" "hs"
   , goldenWithEval "Reports an error when given with unknown command" "T18" "hs"
diff --git a/plugins/hls-eval-plugin/test/testdata/T4139.expected.hs b/plugins/hls-eval-plugin/test/testdata/T4139.expected.hs
new file mode 100644
index 00000000000..ade8332a324
--- /dev/null
+++ b/plugins/hls-eval-plugin/test/testdata/T4139.expected.hs
@@ -0,0 +1,7 @@
+module T4139 where
+
+-- >>> 'x'
+-- 'x'
+
+main :: IO ()
+main = putStrLn "Hello World!"
diff --git a/plugins/hls-eval-plugin/test/testdata/T4139.hs b/plugins/hls-eval-plugin/test/testdata/T4139.hs
new file mode 100644
index 00000000000..855d6ef08bc
--- /dev/null
+++ b/plugins/hls-eval-plugin/test/testdata/T4139.hs
@@ -0,0 +1,6 @@
+module T4139 where
+
+-- >>> 'x'
+
+main :: IO ()
+main = putStrLn "Hello World!"