From ab9f63a3a0854db8bfd74f53c17d088384301fd7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 29 Feb 2012 09:39:31 -0700
Subject: [PATCH] fix error message

---
 collects/racket/cmdline.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/racket/cmdline.rkt b/collects/racket/cmdline.rkt
index 43f3ded8e7..b7ced4103e 100644
--- a/collects/racket/cmdline.rkt
+++ b/collects/racket/cmdline.rkt
@@ -470,7 +470,8 @@
                           (let ([s (if (= 1 (length flags))
                                      (format "the ~a option can only be specified once" (car flags))
                                      (format "only one instance of one option from ~a is allowed" flags))])
-                            (if orig-multi
+                            (if (and orig-multi
+                                     (not (equal? flag orig-multi)))
                               (format "~a; note that ~s is shorthand for ~s, in contrast to ~s"
                                       s
                                       orig-multi