--- a/WorkspaceApplication.st	Tue Jan 14 04:27:48 2014 +0000
+++ b/WorkspaceApplication.st	Tue Jan 14 16:32:09 2014 +0100
@@ -2266,7 +2266,7 @@
 !
 
 autoFetchSelection:aBoolean
-    Display platformName = 'WIN32' ifTrue:[
+    Screen current platformName = 'WIN32' ifTrue:[
         aBoolean ifTrue:[
             self startClipboardWatcher
         ] ifFalse:[
@@ -4151,14 +4151,14 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.253 2013-12-17 15:36:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.254 2014-01-14 15:32:09 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.253 2013-12-17 15:36:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.254 2014-01-14 15:32:09 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st,v 1.253 2013-12-17 15:36:58 cg Exp $'
+    ^ '$Id: WorkspaceApplication.st,v 1.254 2014-01-14 15:32:09 stefan Exp $'
 ! !