--- a/AboutBox.st	Fri Jan 15 06:50:53 2016 +0100
+++ b/AboutBox.st	Sat Jan 16 06:58:47 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 InfoBox subclass:#AboutBox
 	instanceVariableNames:''
 	classVariableNames:'DefaultGreen'
@@ -186,7 +188,7 @@
 initialize
     "setup the box; change all of my components viewBackground to some darkish grey."
 
-    |dark green lbl|
+    |dark green lbl graphicsDevice|
 
     super initialize.
 
@@ -194,8 +196,8 @@
 
     green := self class defaultGreen.    
     dark := Color grey:20.
-    self graphicsDevice hasColors ifFalse:[
-        self graphicsDevice hasGrayscales ifTrue:[
+    (graphicsDevice := self graphicsDevice) hasColors ifFalse:[
+        graphicsDevice hasGrayscales ifTrue:[
             green := Color brightness:(green brightness).    
             dark := Color brightness:(dark brightness).    
         ] ifFalse:[
@@ -238,10 +240,10 @@
 !AboutBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.42 2014-05-23 08:14:45 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.42 2014-05-23 08:14:45 stefan Exp $'
+    ^ '$Header$'
 ! !