diff --git a/doomsday/apps/client/net.dengine.client.pack/defaultstyle.pack/fonts.dei b/doomsday/apps/client/net.dengine.client.pack/defaultstyle.pack/fonts.dei
index 54b544a178..8779311f8a 100644
--- a/doomsday/apps/client/net.dengine.client.pack/defaultstyle.pack/fonts.dei
+++ b/doomsday/apps/client/net.dengine.client.pack/defaultstyle.pack/fonts.dei
@@ -167,3 +167,14 @@ slider {
 log {
     font normal inherits default {}
 }
+
+document {
+    font monospace inherits monospace {}
+}
+
+script {
+    # Make monospace a bit smaller on Windows - Courier New is pretty wide.
+    if Version.OS == 'windows'
+        document.monospace.size = '9pt'
+    end
+}
diff --git a/doomsday/sdk/libappfw/src/style.cpp b/doomsday/sdk/libappfw/src/style.cpp
index 4ad5b25c06..b9682060bb 100644
--- a/doomsday/sdk/libappfw/src/style.cpp
+++ b/doomsday/sdk/libappfw/src/style.cpp
@@ -190,7 +190,7 @@ Font const *Style::richStyleFont(Font::RichFormat::Style fontStyle) const
     switch (fontStyle)
     {
     case Font::RichFormat::Monospace:
-        return &fonts().font("monospace");
+        return &fonts().font(QStringLiteral("monospace"));
 
     default:
         return nullptr;
diff --git a/doomsday/sdk/libappfw/src/widgets/documentwidget.cpp b/doomsday/sdk/libappfw/src/widgets/documentwidget.cpp
index c9bad86cca..98a159bbff 100644
--- a/doomsday/sdk/libappfw/src/widgets/documentwidget.cpp
+++ b/doomsday/sdk/libappfw/src/widgets/documentwidget.cpp
@@ -125,6 +125,10 @@ public Font::RichFormat::IStyle
 
     Font const *richStyleFont(Font::RichFormat::Style fontStyle) const
     {
+        if (fontStyle == Font::RichFormat::Monospace)
+        {
+            return &style().fonts().font(QStringLiteral("document.monospace"));
+        }
         return style().richStyleFont(fontStyle);
     }