--- test-suite/tests/fractions.test.1.8.3	2008-01-25 20:08:57.000000000 -0500
+++ test-suite/tests/fractions.test	2008-01-25 20:09:07.000000000 -0500
@@ -400,3 +400,8 @@
 (with-test-prefix "fraction generics"
   (testeq (G 1) 'integer)
   (testeq (G 2/3) 'fraction))
+
+(pass-if (let ((x (/ 1 2))) 
+	   (with-output-to-string (lambda () (display x)))
+	   (equal? x (/ 1 2))))
+