diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt
index 6c82520d..59a38b9a 100644
--- a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt
+++ b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt
@@ -1,4 +1,4 @@
 #lang typed/scheme
 #:optimize
 (require racket/unsafe/ops)
-(quotient (vector-length '#(1 2 3)) 2)
+(modulo (vector-length '#(1 2 3)) 2)
diff --git a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt
index 134bd64d..c3fda6ea 100644
--- a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt
+++ b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt
@@ -1,5 +1,5 @@
 #lang typed/scheme
 #:optimize
 (require racket/unsafe/ops racket/flonum)
-(+ (quotient 1 1) 2.0)
+(+ (modulo 1 1) 2.0)
 (+ (expt 100 100) 2.0)