--- a/Filename.st	Wed Jun 17 06:33:49 2015 +0100
+++ b/Filename.st	Thu Jun 18 06:57:25 2015 +0200
@@ -3229,7 +3229,7 @@
 !
 
 recursiveMakeDirectory
-    "create a directory with the receivers name and all required intermediate
+    "create a directory with the receiver's name and all required intermediate
      directories.
      Raises an exception if not successful."
 
@@ -6143,11 +6143,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.435 2015-04-22 17:59:59 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.435 2015-04-22 17:59:59 stefan Exp $'
+    ^ '$Header$'
 ! !
 
 

--- a/UserPreferences.st	Wed Jun 17 06:33:49 2015 +0100
+++ b/UserPreferences.st	Thu Jun 18 06:57:25 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -1789,8 +1791,8 @@
     "change the flag which enables a workaround for a redraw bug when running X/Linux in the VMWare virtual machine"
 
     self at:#enableVMWareDrawingBugWorkaround put:aBoolean.
-    Screen current platformName = 'X11' ifTrue:[
-	Screen current maxOperationsUntilFlush:(aBoolean ifTrue:[1] ifFalse:[nil])
+    (Screen notNil and:[Screen current notNil and:[Screen current platformName = #X11]]) ifTrue:[
+        Screen current maxOperationsUntilFlush:(aBoolean ifTrue:[1] ifFalse:[nil])
     ].
 
     "
@@ -5334,11 +5336,11 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.405 2015-05-29 11:38:19 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.405 2015-05-29 11:38:19 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN