diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 5d77a9aa..55f971ab 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -2288,10 +2288,8 @@
             (with-handlers ([exn:fail:filesystem?
                              (λ (x) #f)])
               (let ([fw (collection-path "framework")])
-                (with-handlers ([exn:fail:filesystem?
-                                 (λ (x) #f)])
-                  (or (directory-exists? (build-path fw ".svn"))
-                      (directory-exists? (build-path fw "CVS"))))))))
+                (or (directory-exists? (build-path fw ".svn"))
+                    (directory-exists? (build-path fw "CVS")))))))
       
       (define bday-click-canvas%
         (class canvas%
diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss
index 1288ae42..141f1795 100644
--- a/collects/mrlib/syntax-browser.ss
+++ b/collects/mrlib/syntax-browser.ss
@@ -441,10 +441,10 @@ needed to really make this work:
   
   (define (set-box/f! b v) (when (box? b) (set-box! b v)))
   
-  (define down-bitmap (include-bitmap (lib "turn-down.png" "icons")))
-  (define up-bitmap (include-bitmap (lib "turn-up.png" "icons")))
-  (define down-click-bitmap (include-bitmap (lib "turn-down-click.png" "icons")))
-  (define up-click-bitmap (include-bitmap (lib "turn-up-click.png" "icons")))
+  (define down-bitmap (include-bitmap (lib "turn-down.png" "icons") 'png))
+  (define up-bitmap (include-bitmap (lib "turn-up.png" "icons") 'png))
+  (define down-click-bitmap (include-bitmap (lib "turn-down-click.png" "icons") 'png))
+  (define up-click-bitmap (include-bitmap (lib "turn-up-click.png" "icons") 'png))
   (define arrow-snip-height
     (max 10
          (send up-bitmap get-height)