diff --git a/notes/mred/HISTORY b/notes/mred/HISTORY
index 0e76d0ba..4a386eac 100644
--- a/notes/mred/HISTORY
+++ b/notes/mred/HISTORY
@@ -1,7 +1,7 @@
 
 Version 102/9:
 
- * X: Fixed list-box% to handle arbitrarily many list items.
+ * X: Fixed list-box% to handle arbitrarily many list items. (PR 1342)
 
  * Added pop-down callback initialization argument to popup-menu%, and
    added the 'menu-popdown and 'menu-popdown-none event types to
@@ -19,6 +19,9 @@ Version 102/9:
    container calls the `on-demand' method of all of its labelled menu
    items (which includes submenus).
 
+ * Windows: fixed `get-font-from-user' when a parent frame is provided.
+   (PR 1371)
+
 Version 102/8:
 
  * Changed pen% width from integer to real number (still between
diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 5e4292b7..dccf8c27 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4823,7 +4823,7 @@
     (check-instance 'get-font-from-user wx:font% 'font% #t font)
     (check-style 'get-font-from-user #f null style)
     (if (eq? (system-type) 'windows)
-	(wx:get-font-from-user message (and parent (mred->wx parent)) font style)
+	(wx:get-font-from-user message (and parent (mred->wx parent)) font)
 	(letrec ([ok? #f]
 		 [f (make-object dialog% "Choose Font" parent 500 300)]
 		 [refresh-sample (lambda (b e) (let ([f (get-font)])