--- a/RegressionTests__PTYTest.st	Thu Sep 14 12:43:01 2017 +0200
+++ b/RegressionTests__PTYTest.st	Fri Sep 15 13:24:12 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -15,13 +17,17 @@
 testPTY1
     |ptyPair master slave|
 
+    self 
+        skipIf:OperatingSystem isLinuxLike not
+        description:'#makePTYPair not implemented in Win32OperatingSystem'.
+
     ptyPair := NonPositionableExternalStream makePTYPair.
     master := ptyPair at:1.
     slave := ptyPair at:2.
 
     master nextPutLine:'1234567890'.
     '1234567890' do:[:ch |
-	self assert:(slave next = ch).
+        self assert:(slave next = ch).
     ].
     self assert:(slave next = Character linefeed).
 
@@ -36,6 +42,10 @@
 testPTY2
     |ptyPair master slave|
 
+    self 
+        skipIf:OperatingSystem isLinuxLike not
+        description:'#makePTYPair not implemented in Win32OperatingSystem'.  
+
     ptyPair := NonPositionableExternalStream makePTYPair.
     master := ptyPair at:1.
     slave := ptyPair at:2.