diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss
index 666a23e422..5117413175 100644
--- a/collects/profj/tool.ss
+++ b/collects/profj/tool.ss
@@ -748,7 +748,8 @@
                           #f)))))))
           
           (define (get-defn-editor port-name)
-            (let* ([dr-frame (send (drscheme:rep:current-rep) get-top-level-window)]
+            (let* ([dr-frame (and (drscheme:rep:current-rep)
+                                  (send (drscheme:rep:current-rep) get-top-level-window))]
                    [tabs (and dr-frame  (send dr-frame get-tabs))]
                    [defs (if dr-frame
                              (map (lambda (t) (send t get-defs)) tabs)
@@ -757,9 +758,7 @@
                                   (and (is-a? d drscheme:unit:definitions-text<%>)
                                        (send d port-name-matches? port-name)))
                                     defs)])
-              (and dr-frame 
-                   (= 1 (length def))
-                   (car def))))
+              (and dr-frame (= 1 (length def)) (car def))))
            
           ;process-extras: (list struct) type-record -> (list syntax)
           (define/private (process-extras extras type-recs)