From 220ed5be1faa7c3bd484f3734b0458dff1cf763b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Jul 2005 21:06:03 +0000
Subject: [PATCH] fixed comment boxes

svn: r426

original commit: fa19336839a556de2ce9838be179325a47146390
---
 collects/framework/private/comment-box.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/comment-box.ss b/collects/framework/private/comment-box.ss
index 47fbeade..5f0d7dad 100644
--- a/collects/framework/private/comment-box.ss
+++ b/collects/framework/private/comment-box.ss
@@ -124,7 +124,7 @@
                 [else acc])))
           
           (define/public (read-special source line column position)
-            (raise (make-special-comment "comment")))
+            (make-special-comment "comment"))
           (super-instantiate ())
           (inherit set-snipclass)
           (set-snipclass snipclass))))))
\ No newline at end of file