1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f6a838aa..fb42597e 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1545,8 +1545,8 @@ vShowThem (Tox.ViewSnapshot { vTheirNick, vTheirStatus, vTheirStatusMsg, vTheirT
 showMsg ::(Word32, (Bool,(Tox.ViewSnapshot, InOrOut Tox.CryptoMessage))) -> B.ByteString
 showMsg (n,(flg,(snapshot,iocm))) = B.concat [bool "  " "h " flg, showmsg' (snapshot,iocm)]
     where
-        showmsg' (snapshot,In cm) = B.concat [Tox.vNick snapshot,"> ", pshow cm]
-        showmsg' (snapshot,Out cm) = B.concat [utf8boldify (Tox.vNick snapshot),": ",pshow cm]
+        showmsg' (snapshot,In cm) = B.concat [Tox.vTheirNick snapshot,"> ", pshow cm]
+        showmsg' (snapshot,Out cm) = B.concat [{-utf8boldify-} (Tox.vNick snapshot),": ",pshow cm]
         utf8boldify s = boldify (T.decodeUtf8With E.lenientDecode s)
             where
                 boldify :: T.Text -> B.ByteString