--- a/RegressionTests__Win32OLETests.st	Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__Win32OLETests.st	Thu Jun 30 09:02:08 2016 +0100
@@ -31,7 +31,7 @@
     "/ (see OLEInterfaceConstants initialize)
     Smalltalk loadPackage:'exept:ole'.
 
-    "/ so when we arrive here without error, some is already known to work..        
+    "/ so when we arrive here without error, some is already known to work..
     self assert:(OLEInterfaceConstants notNil).
 
     iid_IEnum := OLEInterfaceConstants classVarAt:#'IID_IEnum'.
@@ -64,33 +64,33 @@
 test02_GuidFromProgID
     |guid|
 
-    self 
-        should:[
-            guid := (GUID clsidFromProgID:'Foo.Bar'). 
-        ] raise:OLEError.
+    self
+	should:[
+	    guid := (GUID clsidFromProgID:'Foo.Bar').
+	] raise:OLEError.
 
     OLEError handle:[:ex |
-        ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[
-            "/ kind of expected - you machine has no AcroPDF installed...
-            Transcript showCR:'OLE: class not found: AcroPDF.PDF'
-        ] ifFalse:[
-            self assert:false description:'unexpected error code'.
-        ]
+	ex hresult = (OLEStatusCodeConstants at:#CO_E_CLASSSTRING) ifTrue:[
+	    "/ kind of expected - you machine has no AcroPDF installed...
+	    Transcript showCR:'OLE: class not found: AcroPDF.PDF'
+	] ifFalse:[
+	    self assert:false description:'unexpected error code'.
+	]
     ] do:[
-        guid := (GUID clsidFromProgID:'AcroPDF.PDF').
-        self assert:(guid notNil).
-        "/ self assert:(guid printString = '').
+	guid := (GUID clsidFromProgID:'AcroPDF.PDF').
+	self assert:(guid notNil).
+	"/ self assert:(guid printString = '').
     ].
 
-     guid := (GUID clsidFromProgID:'InternetExplorer.Application'). 
+     guid := (GUID clsidFromProgID:'InternetExplorer.Application').
      self assert:(guid notNil).
      self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}').
 
-     guid := (GUID clsidFromProgID: 'Msxml2.DOMDocument.4.0'). 
+     guid := (GUID clsidFromProgID: 'Msxml2.DOMDocument.4.0').
      self assert:(guid notNil).
      self assert:(guid printString = '{88D969C0-F192-11D4-A65F-0040963251E5}').
 
-     guid := (GUID clsidFromProgID: 'Microsoft.JScript.Vsa.VsaEngine'). 
+     guid := (GUID clsidFromProgID: 'Microsoft.JScript.Vsa.VsaEngine').
      self assert:(guid notNil).
      self assert:(guid printString = '{B71E484D-93ED-4B56-BFB9-CEED5134822B}').
 
@@ -126,15 +126,15 @@
     |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2
      ids visibleID params result specTable|
 
-    guid := (GUID clsidFromProgID:'InternetExplorer.Application'). 
+    guid := (GUID clsidFromProgID:'InternetExplorer.Application').
     self assert:(guid notNil).
     self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}').
 
-    iDispatch := IClassFactory 
-                createInstance:guid
-                iid: (OLEInterface oleConstantAt:'IID_IDispatch')
-                controllingUnknown:nil
-                context:(OLEInterface oleConstantAt:'CLSCTX_ALL').
+    iDispatch := IClassFactory
+		createInstance:guid
+		iid: (OLEInterface oleConstantAt:'IID_IDispatch')
+		controllingUnknown:nil
+		context:(OLEInterface oleConstantAt:'CLSCTX_ALL').
     self assert:(iDispatch notNil).
 
     self assert:(iDispatch hasTypeInfo).
@@ -174,7 +174,7 @@
 
     iWebBrowser2 release.
 
-    
+
     "
      self new test20_CreateInstance
     "