diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 69d96666..97dff159 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2871,7 +2871,7 @@
       (values (unbox x) (unbox y)))))
 
 
-(declare-local-member-name private-wx)
+(define-local-member-name private-wx)
 
 (define mred%
   (class object%