From 7563016cf861f9becb2b05140900b17e77d9dc34 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 14 Nov 2008 08:02:21 +0000
Subject: [PATCH] fix probable bug

svn: r12445
---
 collects/errortrace/stacktrace.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.ss
index 017b37d76f..c4fb5478ef 100644
--- a/collects/errortrace/stacktrace.ss
+++ b/collects/errortrace/stacktrace.ss
@@ -516,7 +516,7 @@
                 ;; It's a null:
                 expr]
                [(syntax-case* expr (#%plain-app void)
-                              (if phase
+                              (if (positive? phase)
                                 free-transformer-identifier=?
                                 free-identifier=?)
                   [(#%plain-app void) #t]