diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 4b928b29..679a58f1 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4837,7 +4837,8 @@
     min-client-width min-client-height
     on-char on-event on-paint on-scroll on-tab-in
     warp-pointer get-dc
-    set-canvas-background get-canvas-background))
+    set-canvas-background get-canvas-background
+    set-resize-corner))
 
 (define-keywords canvas%-keywords
   window%-keywords
@@ -4875,7 +4876,10 @@
       [get-canvas-background
        (entry-point
 	(lambda ()
-	  (send wx get-canvas-background)))])
+	  (send wx get-canvas-background)))]
+
+      [set-resize-corner (lambda (on?)
+			   (send wx set-resize-corner))])
     (private-field
       [wx #f])
     (sequence
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index f8cee39d..0cb13cba 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -356,6 +356,7 @@
     scroll
     warp-pointer
     view-start
+    set-resize-corner
     show-scrollbars
     set-scrollbars
     get-virtual-size