diff --git a/collects/htdp/error.ss b/collects/htdp/error.ss
index 4fcc667462..f9c0633492 100644
--- a/collects/htdp/error.ss
+++ b/collects/htdp/error.ss
@@ -55,7 +55,7 @@
 (define (check-result pname pred? expected given . other-given)
   (if (pred? given)
       given
-      (tp-error pname "result of type <~a> expected, given: ~a" expected 
+      (tp-error pname "result of type <~a> expected, your function produced ~a" expected 
                 (if (pair? other-given)
                     (car other-given)
                     given))))
@@ -63,7 +63,7 @@
 ;; check-arg : sym bool str str TST -> void
 (define (check-arg pname condition expected arg-posn given)
   (unless condition
-    (tp-error pname "expected <~a> as ~a argument, given: ~e"
+    (tp-error pname "expected <~a> as ~a argument, given: ~a"
               expected arg-posn given)))
 
 ;; check-arity : sym num (list-of TST) -> void