diff --git a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt
index 6916033f..5a0600e0 100644
--- a/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt
+++ b/collects/tests/typed-scheme/optimizer/tests/make-polar.rkt
@@ -7,4 +7,6 @@
 (make-polar 1.0 1.0)
 
 ;; nested
-(+ 1.0+2.0i (make-polar 2.0 4.0))
+(let ((p (+ 1.0+2.0i (make-polar 2.0 4.0))))
+  (string-append (real->decimal-string (real-part p) 10)
+                 (real->decimal-string (imag-part p) 10)))