--- a/Workspace.st	Tue Feb 18 18:16:37 2014 +0100
+++ b/Workspace.st	Tue Feb 18 18:19:00 2014 +0100
@@ -603,7 +603,7 @@
 errorBackgroundColor
     errorBgColor notNil ifTrue:[ ^ errorBgColor ].
     DefaultErrorBackgroundColor notNil ifTrue:[ ^ DefaultErrorBackgroundColor ].
-    device hasColors ifTrue:[ ^ Color red ].
+    self graphicsDevice hasColors ifTrue:[ ^ Color red ].
 
     ^ selectionBgColor
 !
@@ -658,7 +658,7 @@
 
 warningBackgroundColor
     DefaultWarningBackgroundColor notNil ifTrue:[ ^ DefaultWarningBackgroundColor ].
-    device hasColors ifTrue:[ ^ Color orange ].
+    self graphicsDevice hasColors ifTrue:[ ^ Color orange ].
 
     ^ selectionBgColor
 !
@@ -1018,7 +1018,7 @@
     expandingTop := true.       "/ hack to make the top of the selection visible
     self makeSelectionVisible.
 
-    device flush.
+    self flush.
 
     aBlock ensure:[
         "
@@ -2205,10 +2205,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.314 2014-02-18 17:19:00 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.313 2014-02-12 15:37:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.314 2014-02-18 17:19:00 stefan Exp $'
 ! !