--- a/VariablePanel.st	Wed Mar 19 11:04:37 2014 +0100
+++ b/VariablePanel.st	Wed Mar 19 11:05:14 2014 +0100
@@ -2336,7 +2336,7 @@
             ] ifFalse:[
                 icon := anIcon copy onDevice:self graphicsDevice.
                 icon clearMaskedPixels.
-                device == Display ifTrue:[
+                self graphicsDevice == Display ifTrue:[
                     self class snapIcons at:aKey put:icon.
                 ]
             ].
@@ -2599,10 +2599,10 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.99 2014-03-05 22:13:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.100 2014-03-19 10:05:14 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.99 2014-03-05 22:13:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.100 2014-03-19 10:05:14 stefan Exp $'
 ! !