diff --git a/racket/src/ChezScheme/s/5_3.ss b/racket/src/ChezScheme/s/5_3.ss
index 38f4a31700..c1ef389cf0 100644
--- a/racket/src/ChezScheme/s/5_3.ss
+++ b/racket/src/ChezScheme/s/5_3.ss
@@ -2762,7 +2762,7 @@
                                       (/ (- (* b c) (* a d)) t))))
                 ;; Let r = c/d or d/c, depending on which is larger
                 (cond
-                 [(and ($exactnum? x) ($exactnum? y))
+                 [(or (eq? c 0) (and ($exactnum? x) ($exactnum? y)))
                   (simpler-divide a b c d)]
                  [(< (abs c) (abs d))
                   (let ([r (/ d c)])