From 53bf9d51c19f8290e49dc889e932004718fe0721 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 11 Sep 2009 00:03:23 +0000 Subject: [PATCH] PR 10442 svn: r15966 --- collects/drscheme/private/debug.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index 2b2927ccaf..7cd39c5ca3 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -885,8 +885,9 @@ profile todo: (send frame get-interactions-text))]) (when frame (send frame show #t)) - (when (let ([wbv (weak-box-value (car edition-pair))]) - (and wbv (eq? editor wbv))) + (when (and edition-pair + (let ([wbv (weak-box-value (car edition-pair))]) + (and wbv (eq? editor wbv)))) (unless (= (cdr edition-pair) (send editor get-edition-number)) (message-box (string-constant drscheme) (string-constant editor-changed-since-srcloc-recorded)