--- a/Label.st	Fri Apr 04 18:28:40 2008 +0200
+++ b/Label.st	Fri Apr 04 22:10:25 2008 +0200
@@ -922,7 +922,10 @@
     "set the background color"
 
     aColor ~~ bgColor ifTrue:[
-        bgColor := aColor onDevice:device.
+        bgColor := aColor.
+        bgColor notNil ifTrue:[
+            bgColor := bgColor onDevice:device.
+        ].
         self class == Label ifTrue:[
             super viewBackground:bgColor
         ].
@@ -1849,5 +1852,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.131 2008-02-18 18:04:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.132 2008-04-04 20:10:25 mb Exp $'
 ! !