diff --git a/collects/browser/private/html.ss b/collects/browser/private/html.ss
index fbfb897be1..fd05d8b1c8 100644
--- a/collects/browser/private/html.ss
+++ b/collects/browser/private/html.ss
@@ -224,7 +224,7 @@
                                      get-pure-port
                                      (lambda (ip)
                                        (copy-port ip op)))))
-                                'truncate)
+                                #:exists 'truncate)
         (pop-status)
         (let ([bitmap (make-object bitmap% tmp-filename)])
           (with-handlers ([exn:fail?
diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.ss
index ad26fd5506..2910dec8c2 100644
--- a/collects/browser/private/hyper.ss
+++ b/collects/browser/private/hyper.ss
@@ -1144,7 +1144,7 @@ A test case:
                   (show #t)
                   (send (send (get-hyper-panel) get-canvas) goto-url start-url #f))])
     (lambda (%)
-      (hyper-no-show-frame-mixin (m %)))))
+      (m (hyper-no-show-frame-mixin %)))))
 
 (define hyper-frame% (hyper-frame-mixin (frame:status-line-mixin frame:basic%)))
 (define hyper-no-show-frame% (hyper-no-show-frame-mixin (frame:status-line-mixin frame:basic%)))