From 6a4c6a55356b509b01988d7a34adb30af4b1a396 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 31 Jul 2009 15:59:47 +0000
Subject: [PATCH] fixed buggy contract

svn: r15648
---
 collects/drscheme/tool-lib.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/drscheme/tool-lib.ss b/collects/drscheme/tool-lib.ss
index 091603df4d..cd090cbf80 100644
--- a/collects/drscheme/tool-lib.ss
+++ b/collects/drscheme/tool-lib.ss
@@ -300,7 +300,7 @@ all of the names in the tools library, for use defining keybindings
    drscheme:debug:error-display-handler/stacktrace
    (->* (string? any/c)
         ((or/c false/c (listof srcloc?)))
-        (or/c #f (listof srcloc?)))
+        any/c)
    ((msg exn) ((stack #f)))
    @{Displays the error message represented by the string, adding
      embellishments like those that appears in the DrScheme REPL,