From f60645da2cb8f5a230fc5129a9bf29f0158f888f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Tue, 23 Feb 2010 21:43:08 +0000
Subject: [PATCH] ARGHGHGHGHGHGHGHGGHGH

svn: r18308
---
 collects/scheme/private/class-internal.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/scheme/private/class-internal.ss b/collects/scheme/private/class-internal.ss
index b42092c0c0..66293218c0 100644
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@@ -4020,9 +4020,9 @@
 
 (define-traced (is-a? v c)
   (trace-begin
-   (trace (when (object? v)
-            (inspect-event v)))
+   (trace (when (object? v) (inspect-event v)))
    (cond
+     [(not (object? v)) #f]
      [(class? c) ((class-object? (class-orig-cls c)) ((object-unwrapper v) v))]
      [(interface? c)
       (and (object? v)