--- a/Label.st	Fri Feb 21 20:31:01 1997 +0100
+++ b/Label.st	Mon Feb 24 21:10:55 1997 +0100
@@ -1152,7 +1152,9 @@
 
 model:aModel
     super model:aModel.
-    self getLabelFromModel.
+    labelMsg notNil ifTrue:[
+        self getLabelFromModel.
+    ]
 ! !
 
 !Label methodsFor:'change & update'!
@@ -1638,5 +1640,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.73 1997-02-08 14:23:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.74 1997-02-24 20:10:55 ca Exp $'
 ! !