From 1f4bdc42e81a3d2cabb87b02df6d590a0fc93b52 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Jul 2002 19:37:36 +0000
Subject: [PATCH] .

original commit: 2bfdfedacaa0fd044ca6198ebb8074d61fd38b6a
---
 collects/mred/mred.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 285b3d79..e6f8e21c 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -6072,7 +6072,8 @@
 	       (let ([result (dynamic-require m id)])
 		 (if (is-a? result %)
 		     result
-		     (error 'load-class "not a ~a% instance" id))))))])
+		     (error 'load-class "not a ~a% instance" id)))
+	       #f)))])
   ;; install the getters:
   (wx:set-snip-class-getter 
    (lambda (name)