--- a/RegressionTests__CompilerTests2.st	Tue Apr 02 18:17:03 2013 +0200
+++ b/RegressionTests__CompilerTests2.st	Wed Apr 03 15:27:51 2013 +0200
@@ -33,7 +33,7 @@
 
      When a package is loaded from source using
 
-	Smalltalk loadPackage:'...'
+        Smalltalk loadPackage:'...'
 
      expression __EVALUATED FROM WORKSPACE__ AND a method from loaded class
      uses a class from the same package that is not yet loaded (i.e., it will
@@ -47,18 +47,22 @@
 
     | ws |
 
+    "/ this test only works with a Display...
+    self skipIf:[true "Display isNil"] description:'Test requires a Display'.
+
     "/First, make sure that package is not yet loaded...
     self
-	assert: (Smalltalk at: #'exept_regression_testData_CompilerTests2') isNil
-	description: 'Mock package already loaded'.
+        assert: (Smalltalk at: #'exept_regression_testData_CompilerTests2') isNil
+        description: 'Mock package already loaded'.
 
     ws := WorkspaceApplication new.
-    ws selectedWorkspace contents: '(Smalltalk loadPackage: #''exept:regression/testData/CompilerTests2'')'.
-    ws selectedWorkspace selectAll.
-    ws selectedWorkspace doIt.
+    ws selectedWorkspace 
+        contents: '(Smalltalk loadPackage: #''exept:regression/testData/CompilerTests2'')';
+        selectAll;
+        doIt.
 
     self assert: (Smalltalk at: #'RegressionTests::CompilerTests2Mock1') new foo class
-		    == (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
+                    == (Smalltalk at: #'RegressionTests::CompilerTests2Mock2')
 
     "Created: / 26-10-2012 / 11:59:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 12-02-2013 / 16:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -110,3 +114,4 @@
 version_SVN
     ^ '§Id:: RegressionTests__CompilerTests2.st 506 2012-10-26 12:03:11Z vranyj1                                                    §'
 ! !
+