From 7e6b4757facd75a72a53ffcabe0c35b1b4f08c2f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Tue, 23 Feb 2010 22:40:07 +0000
Subject: [PATCH] Forgot to check this

svn: r18312
---
 src/mzscheme/utils/xcglue.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/utils/xcglue.c b/src/mzscheme/utils/xcglue.c
index b7c74646d5..1acd8c9884 100644
--- a/src/mzscheme/utils/xcglue.c
+++ b/src/mzscheme/utils/xcglue.c
@@ -467,7 +467,7 @@ Scheme_Object *objscheme_unwrap(Scheme_Object *obj, Scheme_Object *c)
   Scheme_Object *s[1], *unwrapper, *unwrap_prop;
   Scheme_Class *cls = (Scheme_Class *)cls;
 
-  if (!obj)
+  if (!obj || !cls)
     return NULL;
 
   unwrap_prop = cls->unwrap_property;