diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index 9d2206ad82..f20fa1f1cf 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -764,7 +764,9 @@ profile todo:
                [frame (cond
                         [(path? debug-source) (handler:edit-file debug-source)]
                         [(is-a? debug-source editor<%>)
-                         (get-enclosing-editor-frame debug-source)]
+                         (let ([canvas (send debug-source get-canvas)])
+                           (and canvas
+                                (send canvas get-top-level-window)))]
                         [else #f])]
                [editor (cond
                          [(path? debug-source)
@@ -787,23 +789,6 @@ profile todo:
   
   
   
-  ;; get-enclosing-editor-frame: editor<%> -> (or/c frame% #f)
-  ;; Returns the enclosing frame of an-editor, or #f if we can't find it.
-  (define (get-enclosing-editor-frame an-editor)
-    (let ([admin (send an-editor get-admin)])
-      (cond
-        [(is-a? admin editor-snip-editor-admin<%>)
-         (let* ([enclosing-editor-snip (send admin get-snip)]
-                [editor-snip-admin (send enclosing-editor-snip get-admin)]
-                [enclosing-editor (send editor-snip-admin get-editor)])
-           (get-enclosing-editor-frame enclosing-editor))]
-        [else
-         (let ([canvas (send an-editor get-canvas)])
-           (and canvas
-                (send canvas get-top-level-window)))])))
-  
-  
-  
   ;                                                                                      
   ;                                                                                      
   ;                                                                                      
diff --git a/collects/drscheme/private/language.ss b/collects/drscheme/private/language.ss
index d5fe1d91d2..eb3d691d4e 100644
--- a/collects/drscheme/private/language.ss
+++ b/collects/drscheme/private/language.ss
@@ -115,8 +115,8 @@
                   (documentation-reference #f)
                   (reader (λ (src port)
                             (let ([v (parameterize ([read-accept-reader #t])
-                                       (with-stacktrace-name 
-                                        (read-syntax src port)))])
+                                        (with-stacktrace-name 
+                                         (read-syntax src port)))])
                               (if (eof-object? v)
                                   v
                                   (namespace-syntax-introduce v)))))