From bd7d167466d45d7d5a4c9dcdd28dafde7cf10383 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 16 Sep 2007 23:21:24 +0000
Subject: [PATCH] improved error message

svn: r7356
---
 collects/tests/drscheme/drscheme-test-util.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/tests/drscheme/drscheme-test-util.ss b/collects/tests/drscheme/drscheme-test-util.ss
index da3ce84ec0..dc64e2e583 100644
--- a/collects/tests/drscheme/drscheme-test-util.ss
+++ b/collects/tests/drscheme/drscheme-test-util.ss
@@ -358,7 +358,10 @@
             (fw:test:button-push "OK")
             (let ([new-frame (wait-for-new-frame language-dialog)])
               (unless (eq? new-frame drs-frame)
-                (error 'set-language-level! "didn't get drscheme frame back, got: ~s\n" new-frame)))))))) 
+                (error 'set-language-level! 
+                       "didn't get drscheme frame back, got: ~s (drs-frame ~s)\n"
+                       new-frame
+                       drs-frame)))))))) 
 
   (provide/contract [check-language-level ((or/c string? regexp?) . -> . void?)])
   ;; checks that the language in the drscheme window is set to the given one.