From 2b99c863211b9093ef0307c590268e61ff380826 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 17 Jul 2011 19:32:43 -0500 Subject: [PATCH] fix missing argument to format please merge to release branch --- collects/racket/private/class-internal.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/private/class-internal.rkt b/collects/racket/private/class-internal.rkt index 6f62ad3e57..1f22ffa869 100644 --- a/collects/racket/private/class-internal.rkt +++ b/collects/racket/private/class-internal.rkt @@ -2576,7 +2576,7 @@ (fail "no public method ~a" m))) (for ([m (class/c-absents ctc)]) (when (hash-ref method-ht m #f) - (fail "class already contains public method ~a"))) + (fail "class already contains public method ~a" m))) (for ([m (class/c-inherits ctc)]) (unless (hash-ref method-ht m #f) (fail "no public method ~a" m)))