diff --git a/collects/tests/r6rs/arithmetic/flonums.sls b/collects/tests/r6rs/arithmetic/flonums.sls
index 97f7708e42..b8fe25b657 100644
--- a/collects/tests/r6rs/arithmetic/flonums.sls
+++ b/collects/tests/r6rs/arithmetic/flonums.sls
@@ -261,9 +261,9 @@
     (test/approx (flexpt 10.0 3.0) 1000.0)
 
     (test (no-infinities-violation? (make-no-infinities-violation)) #t)
-    (test ((record-predicate &no-infinities) (make-no-infinities-violation)) #t)
+    (test ((record-predicate (record-type-descriptor &no-infinities)) (make-no-infinities-violation)) #t)
     (test (no-nans-violation? (make-no-nans-violation)) #t)
-    (test ((record-predicate &no-nans) (make-no-nans-violation)) #t)
+    (test ((record-predicate (record-type-descriptor &no-nans)) (make-no-nans-violation)) #t)
 
     (test/approx (fixnum->flonum 2) 2.0)
 
diff --git a/collects/tests/r6rs/test.sls b/collects/tests/r6rs/test.sls
index adb887e8ee..8516e15051 100644
--- a/collects/tests/r6rs/test.sls
+++ b/collects/tests/r6rs/test.sls
@@ -78,7 +78,7 @@
   (define-syntax test/unspec-or-exn
     (syntax-rules ()
       [(_ expr condition)
-       (test (guard (c [((condition-predicate condition) c)
+       (test (guard (c [((condition-predicate (record-type-descriptor condition)) c)
                         'unspec])
                     (begin expr 'unspec))
              'unspec)]))