--- a/Label.st	Tue Oct 29 22:28:25 2002 +0100
+++ b/Label.st	Wed Oct 30 13:52:41 2002 +0100
@@ -1046,8 +1046,9 @@
                 ]
             ]
         ] ifFalse:[
-            newLogo := aStringOrFormOrImage asString.
-
+            aStringOrFormOrImage notNil ifTrue:[
+                newLogo := aStringOrFormOrImage asString.
+            ].
             "/ any change ?
             (logo = newLogo) ifTrue:[
                 (logo emphasis = newLogo emphasis) ifTrue:[
@@ -1818,5 +1819,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.115 2002-10-18 16:49:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.116 2002-10-30 12:52:41 cg Exp $'
 ! !