diff --git a/pkgs/gui-pkgs/gui-lib/mred/HISTORY.txt b/pkgs/gui-pkgs/gui-lib/mred/HISTORY.txt
index 2bffa4057a..aab906c1f6 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/HISTORY.txt
+++ b/pkgs/gui-pkgs/gui-lib/mred/HISTORY.txt
@@ -1,3 +1,10 @@
+Version 5.90.0.5
+
+Fix key-event% get-key-release-code to return 'press instead of 'down
+ for a key-down event
+
+----------------------------------------
+
 Version 5.1, February 2011
 
 The GRacket executable is now a thin wrapper on the Racket executable,
diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/common/event.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/common/event.rkt
index 5cdd153e13..a295de464e 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/common/event.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/common/event.rkt
@@ -82,7 +82,7 @@
                    [[exact-integer? y] 0])
   (init [time-stamp 0])
   (init-properties [[bool? caps-down] #f])
-  (properties [[(make-alts symbol? char?) key-release-code] 'down]
+  (properties [[(make-alts symbol? char?) key-release-code] 'press]
               [[(make-or-false (make-alts symbol? char?)) other-shift-key-code] #f]
               [[(make-or-false (make-alts symbol? char?)) other-altgr-key-code] #f]
               [[(make-or-false (make-alts symbol? char?)) other-shift-altgr-key-code] #f]