--- a/Label.st	Sun Jan 25 15:13:44 1998 +0100
+++ b/Label.st	Mon Jan 26 19:54:50 1998 +0100
@@ -1514,9 +1514,8 @@
     self computeLabelSize.
     fixSize ifFalse:[
         self resize
-    ] ifTrue:[
-        self computeLabelOrigin
     ].
+    self computeLabelOrigin.
     shown ifTrue:[
         self invalidate
     ]
@@ -1628,8 +1627,9 @@
             x := x + hSpace.
             y := y + vSpace.
 
-            (logo isString 
-            or:[logo isKindOf:StringCollection]) ifTrue:[
+            (logo isString
+            or:[logo species == String
+            or:[logo isKindOf:StringCollection]]) ifTrue:[
                 stringLogo := true.
                 y := y + (font ascent).
             ] ifFalse:[
@@ -1726,5 +1726,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.87 1998-01-15 00:06:41 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.88 1998-01-26 18:54:50 ca Exp $'
 ! !