..

original commit: 9b2ebb140b3ef544c596c8eb67070e1f61656b10

collects/framework/private/icon.ss

@@ -32,8 +32,8 @@
 		 [f
 		  (lambda ()
 		    (let ([bitmap (make-object bitmap% p type)])
-		      (set! f (lambda () bitmap))
-		      bitmap))])
+                      (set! f (lambda () bitmap))
+                      bitmap))])
 	  (unless (file-exists? p)
 	    (fprintf (current-error-port) "WARNING: couldn't find ~a~n" p))
 	  (lambda ()

collects/framework/private/panel.ss

@@ -267,6 +267,7 @@
                           cursor-gaps)])
               (set-cursor (and (or gap
                                    resizing-y)
+                               (send (icon:get-up/down-cursor) ok?)
                                (icon:get-up/down-cursor)))
               (cond
                 [(and gap (send evt button-down? 'left))

collects/framework/private/scheme.ss

@@ -556,7 +556,8 @@
                                             left
                                             right
                                             (if error? mismatch-color match-color)
-                                            (icon:get-paren-highlight-bitmap)
+                                            (and (send (icon:get-paren-highlight-bitmap) ok?)
+                                                 (icon:get-paren-highlight-bitmap))
                                             (= there here left))])
                                  (set! clear-old-locations
                                        (let ([old clear-old-locations])