--- a/RegressionTests__Win32OperatingSystemTest.st	Tue Apr 12 13:05:05 2016 +0200
+++ b/RegressionTests__Win32OperatingSystemTest.st	Thu Apr 14 19:08:10 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -22,10 +20,7 @@
 testMutex
     |handle alreadyExists lastErrorCode handleAndLastErrorCode|
 
-    OperatingSystem isMSWINDOWSlike ifFalse:[
-        Transcript showCR:'test skipped (OS is not WINDOWS)'.
-        ^ self.
-    ].
+    self skipIf:[OperatingSystem isMSWINDOWSlike not] description:'test skipped (OS is not WINDOWS)'.
 
     handleAndLastErrorCode := Win32OperatingSystem createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'.
     handle := handleAndLastErrorCode first.
@@ -52,10 +47,8 @@
 testRegistry
     |k hasContentType|
 
-    OperatingSystem isMSWINDOWSlike ifFalse:[
-        Transcript showCR:'test skipped (OS is not WINDOWS)'.
-        ^self.
-    ].
+    self skipIf:[OperatingSystem isMSWINDOWSlike not] description:'test skipped (OS is not WINDOWS)'.
+
     k := OperatingSystem registryEntry key:'HKEY_CLASSES_ROOT\MIME\Database\'.
     self assert:(k notNil).