diff --git a/src/GF/Quiz.hs b/src/GF/Quiz.hs
index ad5f2818c..52d9dee6b 100644
--- a/src/GF/Quiz.hs
+++ b/src/GF/Quiz.hs
@@ -35,7 +35,7 @@ import Data.List (nub)
 
 mkQuiz :: Encoding -> String -> [(String,[String])] -> IO ()
 mkQuiz cod msg tts = do
-  let qas = [ (q, mkAnswer cod as) | (q,as) <- tts]
+  let qas = [ (encodeUnicode cod q, mkAnswer cod as) | (q,as) <- tts]
   teachDialogue qas msg
 
 translationList ::