--- a/tests/FormTests.st	Fri Dec 08 09:10:33 2017 +0000
+++ b/tests/FormTests.st	Wed Jan 03 22:19:22 2018 +0000
@@ -13,12 +13,13 @@
 !FormTests methodsFor:'running'!
 
 setUp
-    Display isNil ifTrue:[
+    Screen current isNil ifTrue:[
         Smalltalk openDisplay
     ].
-    self skipIf: Display isNil description: 'Display connection not available'
+    self skipIf: Screen current isNil description: 'Display connection not available'
 
     "Created: / 25-04-2016 / 20:30:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-01-2018 / 21:27:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !FormTests methodsFor:'tests - regression'!