diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs
index 105324f629206a1f27df6c098f2b7b3070f47bda..2cc055ae8a64b2bf28576650d987706d26b9147a 100644
--- a/ghc/GHCi/UI.hs
+++ b/ghc/GHCi/UI.hs
@@ -468,8 +468,8 @@ interactiveUI config srcs maybe_exprs = do
         GHCiState{ progname           = default_progname,
                    args               = default_args,
                    evalWrapper        = eval_wrapper,
-                   prompt             = default_prompt,
-                   prompt_cont        = default_prompt_cont,
+                   prompt             = defPrompt config,
+                   prompt_cont        = defPromptCont config,
                    stop               = default_stop,
                    editor             = default_editor,
                    options            = [],