--- a/DeviceWorkstation.st	Wed Feb 26 19:31:05 2020 +0100
+++ b/DeviceWorkstation.st	Wed Feb 26 21:39:20 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -449,8 +447,8 @@
 
         wsClasses := OrderedCollection new.
 
-        wsClass := #(OpenGLWorkstation GLXWorkstation XWorkstation)
-                        detect:[:eachClassNameSymbol| (Smalltalk classNamed:eachClassNameSymbol) notNil] ifNone:nil.
+        #(OpenGLWorkstation GLXWorkstation XWorkstation)
+        	detect:[:eachClassNameSymbol| (wsClass := Smalltalk classNamed:eachClassNameSymbol) notNil] ifNone:nil.
         wsClass notNil ifTrue:[
             wsClasses add:wsClass
         ].