diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index 5f43c06..4ac5316 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -123,7 +123,7 @@ ucStrPrompt
   -> (String -> Action ())
   -- ^ The callback function for the result
   -> Prompt
-ucStrPrompt pStr act = (ucStrPrompt pStr act)
+ucStrPrompt pStr act = (strPrompt pStr act)
   { promptProcessChar = \ch -> (++ [toUpper ch]) }
 
 -- | Builds a numeric prompt