--- a/RegressionTests__Win32OLETests.st	Tue Mar 29 21:42:19 2016 +0200
+++ b/RegressionTests__Win32OLETests.st	Wed Mar 30 02:28:36 2016 +0200
@@ -84,12 +84,26 @@
     ] do:[
         guid := (GUID clsidFromProgID:'AcroPDF.PDF').
         self assert:(guid notNil).
-        self assert:(guid printString = '').
+        "/ self assert:(guid printString = '').
     ].
 
+     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'). 
+     self assert:(guid notNil).
+     self assert:(guid printString = '{88D969C0-F192-11D4-A65F-0040963251E5}').
+
+     guid := (GUID clsidFromProgID: 'Microsoft.JScript.Vsa.VsaEngine'). 
+     self assert:(guid notNil).
+     self assert:(guid printString = '{B71E484D-93ED-4B56-BFB9-CEED5134822B}').
+
     "
      self new test02_GuidFromProgID
     "
+
+    "Modified: / 30-03-2016 / 02:28:15 / cg"
 ! !
 
 !Win32OLETests class methodsFor:'documentation'!