--- a/RegressionTests__Win32OLETests.st	Wed Mar 30 03:44:41 2016 +0200
+++ b/RegressionTests__Win32OLETests.st	Wed Mar 30 15:05:46 2016 +0200
@@ -106,7 +106,28 @@
     "Modified: / 30-03-2016 / 02:28:15 / cg"
 !
 
-test03_CreateInstance
+test03_verbsEnumerator
+    |clsID enumerator nextVerb|
+
+    clsID := GUID clsidFromProgID:'InternetExplorer.Application'.
+    self assert:clsID notNil.
+    self assert:(clsID printString = '{0002DF01-0000-0000-C000-000000000046}').
+
+    enumerator := OLERegistryInterface verbsEnumerator:clsID.
+    self assert:(enumerator notNil).
+
+    nextVerb := enumerator next.
+    self assert:nextVerb notNil.
+    enumerator release.
+
+    "
+     self new test03_verbsEnumerator
+    "
+
+    "Created: / 30-03-2016 / 11:29:03 / cg"
+!
+
+test20_CreateInstance
     |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2
      ids visibleID params result|
 
@@ -148,11 +169,10 @@
 
     
     "
-     self new test03_CreateInstance
+     self new test20_CreateInstance
     "
 
-    "Created: / 30-03-2016 / 02:29:19 / cg"
-    "Modified: / 30-03-2016 / 03:43:46 / cg"
+    "Created: / 30-03-2016 / 11:26:36 / cg"
 ! !
 
 !Win32OLETests class methodsFor:'documentation'!