diff --git a/collects/framework/private/icon.ss b/collects/framework/private/icon.ss
index 17c99a7c..5b51fce9 100644
--- a/collects/framework/private/icon.ss
+++ b/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 ()
diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss
index e06a7dea..bc5443d7 100644
--- a/collects/framework/private/panel.ss
+++ b/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))
diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 2295a6b9..5eba5eb5 100644
--- a/collects/framework/private/scheme.ss
+++ b/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])