From 41d79339b92c8f47a1e2fe87a78eba2aa22d943a Mon Sep 17 00:00:00 2001
From: Guillaume Marceau <gmarceau@racket-lang.org>
Date: Wed, 14 Jun 2006 20:20:24 +0000
Subject: [PATCH] attempt to work around byecompiler bug

svn: r3360
---
 collects/mztake/annotator.ss | 4 ++++
 collects/mztake/marks.ss     | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/collects/mztake/annotator.ss b/collects/mztake/annotator.ss
index 6efd036108..fa21871e30 100644
--- a/collects/mztake/annotator.ss
+++ b/collects/mztake/annotator.ss
@@ -12,6 +12,10 @@
            )
   (provide annotate-stx annotate-for-single-stepping)
 
+  (module-identifier=? #'eval/annotations
+		       (datum->syntax-object #f 'eval/annotations))
+
+
   (define (arglist-bindings arglist-stx)
     (syntax-case arglist-stx ()
       [var
diff --git a/collects/mztake/marks.ss b/collects/mztake/marks.ss
index 57c475985b..26387b7fd1 100644
--- a/collects/mztake/marks.ss
+++ b/collects/mztake/marks.ss
@@ -6,6 +6,8 @@
            (lib "shared.ss" "stepper" "private"))
 
   (define-struct full-mark-struct (module-name source label bindings values))
+  (module-identifier=? #'skipto-annotate
+		       (datum->syntax-object #f 'skipto-annotate))
 
   ; CONTRACTS
   (define mark? (-> ; no args