--- a/Label.st	Tue Feb 28 22:52:21 1995 +0100
+++ b/Label.st	Mon Mar 06 20:29:54 1995 +0100
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.16 1995-02-16 16:31:42 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.17 1995-03-06 19:28:54 claus Exp $
 '!
 
 !Label class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Label.st,v 1.16 1995-02-16 16:31:42 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Label.st,v 1.17 1995-03-06 19:28:54 claus Exp $
 "
 !
 
@@ -499,7 +499,8 @@
 update:something
     "the MVC way of changing the label ..."
 
-    (something == aspectSymbol) ifTrue:[
+    (aspectSymbol notNil
+    and:[something == aspectSymbol]) ifTrue:[
 	model notNil ifTrue:[
 	    self label:(model perform: aspectSymbol) printString.
 	].