diff --git a/collects/lang/private/teachprims.ss b/collects/lang/private/teachprims.ss
index 6c4c643c96..dcc210dbf1 100644
--- a/collects/lang/private/teachprims.ss
+++ b/collects/lang/private/teachprims.ss
@@ -292,7 +292,8 @@
       (build-string n (lambda (i)
 			(define r (f i))
 			(unless (char? r)
-			  (qcheck 'build-string "second argument must be a <procedure> that produces a <char>, given ~e which produced ~e for ~e" f r i))
+			  (qcheck 'build-string
+			    "second argument must be a <procedure> that produces a <char>, given ~e, which produced ~e for ~e" f r i))
 			r))))