From 94d9a03bc20626c22fb091302b09076e86dbd99a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 12 Jan 1999 22:01:40 +0000
Subject: [PATCH] ...

original commit: 81997b6b2455372038eee5f96d89e2411e78b3c4
---
 collects/framework/frame.ss | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index c8c955b4..8b87a56a 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -770,11 +770,12 @@
 			    (if locked-now?
 				(icon:get-lock-bitmap)
 				(icon:get-unlock-bitmap))])
-		       (send lock-message
-			     set-label
-			     (if (send label ok?)
-				 label
-				 (if locked-now? "Locked" "Unlocked"))))))))))])
+		       (when (object? lock-message)
+			 (send lock-message
+			       set-label
+			       (if (send label ok?)
+				   label
+				   (if locked-now? "Locked" "Unlocked")))))))))))])
       (public
 	[update-info
 	 (lambda ()
@@ -927,9 +928,10 @@
 	       (when info-edit
 		 (let ([anchor-now? (send info-edit get-anchor)])
 		   (unless (eq? anchor-now? last-state?)
-		     (send anchor-message
-			   show
-			   anchor-now?)
+		     (when (object? anchor-message)
+		       (send anchor-message
+			     show
+			     anchor-now?))
 		     (set! last-state? anchor-now?)))))))]
 	[editor-position-changed
 	 (lambda ()
@@ -943,9 +945,10 @@
 	       (when info-edit
 		 (let ([overwrite-now? (send info-edit get-overwrite-mode)])
 		   (unless (eq? overwrite-now? last-state?)
-		     (send overwrite-message
-			   show
-			   overwrite-now?)
+		     (when (object? overwrite-message)
+		       (send overwrite-message
+			     show
+			     overwrite-now?))
 		     (set! last-state? overwrite-now?)))))))])
       (rename [super-update-info update-info])
       (override