diff --git a/collects/tests/r6rs/base.sls b/collects/tests/r6rs/base.sls
index 158001e09b..987239e8b7 100644
--- a/collects/tests/r6rs/base.sls
+++ b/collects/tests/r6rs/base.sls
@@ -1301,7 +1301,7 @@
 
     ;; 11.15
     (test (apply + (list 3 4))               7)
-    (test ((compose sqrt *) 12 75)               30)
+    (test/approx ((compose sqrt *) 12 75)    30)
     
     (test (call-with-current-continuation
            (lambda (exit)
diff --git a/collects/tests/r6rs/lists.sls b/collects/tests/r6rs/lists.sls
index 7aff65de9a..87218cc0e3 100644
--- a/collects/tests/r6rs/lists.sls
+++ b/collects/tests/r6rs/lists.sls
@@ -124,7 +124,8 @@
     (test (for-all even? '(13 . 14)) #f)
     (test (for-all cons '(1 2 3) '(a b c)) '(3 . c))
     (test (for-all (lambda (a b) (= a 1)) '(1 2 3) '(a b c)) #f)
-    (test (for-all (lambda (a b) (= a 1)) '(1 2) '(a b c)) #f)
+    ;; R6RS merely says that this *should* work, but not must:
+    ;; (test (for-all (lambda (a b) (= a 1)) '(1 2) '(a b c)) #f)
     (test (fold-left + 0 '(1 2 3 4 5)) 15)
     (test (fold-left (lambda (a b) (cons b a)) '() '(1 2 3 4 5))
           '(5 4 3 2 1))
diff --git a/collects/tests/r6rs/syntax-case.sls b/collects/tests/r6rs/syntax-case.sls
index 5541301b76..d828916f26 100644
--- a/collects/tests/r6rs/syntax-case.sls
+++ b/collects/tests/r6rs/syntax-case.sls
@@ -197,7 +197,6 @@
              (let ([v #'#(x ...)])
                (list (syntax->datum v) (vector? v)))])
           '(#() #t))
-    (test (vector? #'#(1 2 3)) #f)
     (test (syntax-case #'(1) ()
             [(_) (syntax->datum #'_)])
           '_)