diff --git a/win32ss/gdi/ntgdi/freetype.c b/win32ss/gdi/ntgdi/freetype.c
index 854085d01e..872564edde 100644
--- a/win32ss/gdi/ntgdi/freetype.c
+++ b/win32ss/gdi/ntgdi/freetype.c
@@ -4913,6 +4913,12 @@ TextIntRealizeFont(HFONT FontHandle, PTEXTOBJ pTextObj)
     LOGFONTW SubstitutedLogFont;
     FT_Face Face;
 
+    ANSI_STRING AnsiString;
+    UNICODE_STRING StyleW;
+    UNICODE_STRING FaceWS;
+    PUNICODE_STRING FaceW = &FaceWS;
+    PUNICODE_STRING StyleWP = &StyleW;
+
     if (!pTextObj)
     {
         TextObj = TEXTOBJ_LockText(FontHandle);
@@ -5018,6 +5024,18 @@ TextIntRealizeFont(HFONT FontHandle, PTEXTOBJ pTextObj)
 
     ASSERT((NT_SUCCESS(Status) ^ (NULL == TextObj->Font)) != 0);
 
+    RtlInitUnicodeString(FaceW, &pLogFont->lfFaceName[0]);
+
+    RtlInitAnsiString(&AnsiString, Face->family_name);
+
+    if (NT_SUCCESS(RtlAnsiStringToUnicodeString(&StyleW, &AnsiString, TRUE)))
+    {
+        if (!(RtlEqualUnicodeString(StyleWP, FaceW, TRUE)))
+        {
+            DPRINT1("Font '%S' is substituted by '%s'.\n", pLogFont->lfFaceName, 
+             Face->family_name ? Face->family_name : "<NULL>");
+        }
+    }
     return Status;
 }