From 11ade3119f24fe6eea4c543b129f6ade2cdfd4a7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 2 May 1999 18:56:35 +0000
Subject: [PATCH] ...

original commit: b4602473c67547f9cc51948e1b1d56ba59a30870
---
 collects/framework/frame.ss | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index f1a56fac..f5e89c77 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -152,9 +152,11 @@
 	   (send (get-editor) on-close))]
 	[get-area-container%  (lambda () panel:vertical-editor%)])
       (private
-	[label (let-values ([(base name dir?) (split-path file-name)])
-		 (or name
-		     file-name))]
+	[label (if file-name
+		   (let-values ([(base name dir?) (split-path file-name)])
+		     (or name
+			 file-name))
+		   "Untitled")]
 	[label-prefix (application:current-app-name)]
 	[do-label
 	 (lambda ()
@@ -322,8 +324,9 @@
 	  (when (send icon ok?)
 	    (set-icon icon)))
 	(do-label)
+	(when file-name
+	  (send (get-editor) load-file file-name 'guess #f))
 	(let ([canvas (get-canvas)])
-	  (send (get-editor) load-file file-name 'guess #f)
 	  (send canvas focus)))))
   
   (define -text<%> (interface (-editor<%>)))