diff --git a/collects/mrlib/include-bitmap.ss b/collects/mrlib/include-bitmap.ss
index 7bb9f95b..3fb2ea4b 100644
--- a/collects/mrlib/include-bitmap.ss
+++ b/collects/mrlib/include-bitmap.ss
@@ -13,7 +13,7 @@
   (define-syntax (-include-bitmap stx)
     (syntax-case stx ()
       [(_ orig-stx source path-spec type)
-       (let* ([c-file (resolve-path-spec #'path-spec #'source #'orig-stx #'build-path)]
+       (let* ([c-file (resolve-path-spec #'path-spec #'source #'orig-stx)]
 	      [content
 	       (with-handlers ([exn:fail?
 				(lambda (exn)
diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss
index 12541194..7f6bdf93 100644
--- a/collects/mrlib/syntax-browser.ss
+++ b/collects/mrlib/syntax-browser.ss
@@ -6,7 +6,7 @@ needed to really make this work:
 
 |#
 
-(module syntax-browser mzscheme
+(module syntax-browser scheme/base
   (require (lib "pretty.ss")
            (lib "list.ss")
            (lib "class.ss")
@@ -400,7 +400,7 @@ needed to really make this work:
   
   (define black-style-delta (make-object style-delta% 'change-normal-color))
   (define green-style-delta (make-object style-delta%))
-  (send green-style-delta set-delta-foreground "forest green")
+  (void (send green-style-delta set-delta-foreground "forest green"))
   (define small-style (make-object style-delta% 'change-size 4))
   
   (define turn-snip%
@@ -591,7 +591,7 @@ needed to really make this work:
          (contents ,contents))
        (foldl
         add-properties
-        (datum->syntax-object
+        (datum->syntax
          #'here ;; ack
          (unmarshall-object contents)
          (list (unmarshall-object src)