From dda81dc80d1143dcc630f4ea8fc8bc107ccf2f9c Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 5 Feb 2010 01:11:05 +0000 Subject: [PATCH] fixed bug 10733 svn: r17973 --- collects/2htdp/private/universe.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.ss index eaab74f268..8bd4ec0798 100644 --- a/collects/2htdp/private/universe.ss +++ b/collects/2htdp/private/universe.ss @@ -343,7 +343,7 @@ (let ([make-bundle make-bundle]) (lambda (state mails bads) (check-arg-list 'make-bundle mails mail? "mail" "second") - (check-arg-list 'make-bundle bads iworld? "mail" "third") + (check-arg-list 'make-bundle bads iworld? "iworld" "third") (make-bundle state mails bads)))) ;; Symbol Any (Any -> Boolean) String String -> Void