diff --git a/collects/mred/private/const.ss b/collects/mred/private/const.ss
index 5fd7912a..23b58c73 100644
--- a/collects/mred/private/const.ss
+++ b/collects/mred/private/const.ss
@@ -44,8 +44,12 @@
 		 (min 255 (floor (* f (send c green)))) 
 		 (min 255 (floor (* f (send c blue))))))
 
+  (define black-color (make-object wx:color% 0 0 0))
+  (define disabled-color (make-object wx:color% 150 150 150))
+
   (define trans-pen (send (wx:get-the-pen-list) find-or-create-pen "white" 0 'transparent))
   (define light-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e1.35) 0 'solid))
+  (define border-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e0.85) 0 'solid)) 
   (define dark-pen (send (wx:get-the-pen-list) find-or-create-pen (scale-color bg-color #e0.6) 0 'solid)) 
   (define dark-brush (send (wx:get-the-brush-list) find-or-create-brush (scale-color bg-color #e0.8) 'solid))