--- a/RegressionTests__OS_OLE_Tests.st	Tue Feb 14 17:19:49 2006 +0100
+++ b/RegressionTests__OS_OLE_Tests.st	Tue Feb 14 18:59:15 2006 +0100
@@ -78,6 +78,16 @@
      self run:#test02_getTypeInfoCount
      self new test02_getTypeInfoCount
     "
+!
+
+test03_coInitialize
+    Win32OperatingSystem::OleObject coInitialize. 
+    Win32OperatingSystem::OleObject coUninitialize. 
+
+    "
+     self run:#test03_coInitialize
+     self new test03_coInitialize
+    "
 ! !
 
 !OS_OLE_Tests class methodsFor:'documentation'!