diff --git a/ansi-tests/misc-cmucl-type-prop.lsp b/ansi-tests/misc-cmucl-type-prop.lsp
index d30c2c128ec960020a1dab52cfb4f5e1ed943d13..48016b5baae9dca82f8b7797d4c9a1223f3b6b04 100644
--- a/ansi-tests/misc-cmucl-type-prop.lsp
+++ b/ansi-tests/misc-cmucl-type-prop.lsp
@@ -246,7 +246,7 @@
 					  (declare (optimize (speed 2) (safety 3) (debug 3) (space 3))
 						   (type (rational -1255531/68466 4) p1))
 					  (+ p1 41888.98682005542d0)))
-			  -1255531/6846)
+			  -1255531/68466)
 		 'double-float))
   t)