From fbd683abb0b2116b02fe6afbbeb7650f90a27d19 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Sun, 9 Nov 2008 20:57:34 +0000
Subject: [PATCH] small fix to check-proc

svn: r12368
---
 collects/htdp/error.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/htdp/error.ss b/collects/htdp/error.ss
index f9c0633492..592fc11e3b 100644
--- a/collects/htdp/error.ss
+++ b/collects/htdp/error.ss
@@ -76,7 +76,7 @@
 ;;   sym (... *->* ...) num (union sym str) (union sym str) -> void
 (define (check-proc proc f exp-arity arg# arg-err)
   (unless (procedure? f)
-    (tp-error proc "procedure expected as ~s argument; given ~e" arg# f))
+    (tp-error proc "procedure expected as ~a argument; given ~e" arg# f))
   (unless (procedure-arity-includes? f exp-arity)
     (let ([arity-of-f (procedure-arity f)])
       (tp-error proc "procedure of ~a expected as ~a argument; given procedure of ~a "