--- a/RegressionTests__OS_OLE_Tests.st	Mon Feb 20 10:49:31 2006 +0100
+++ b/RegressionTests__OS_OLE_Tests.st	Tue Feb 21 19:59:42 2006 +0100
@@ -25,10 +25,6 @@
     [see also:]
 
 "
-!
-
-history
-    "Created: / 06-02-2006 / 16:53:36 / cg"
 ! !
 
 !OS_OLE_Tests methodsFor:'tests'!
@@ -41,15 +37,13 @@
 
     |handle|
 
-    handle := Win32OperatingSystem::ITypeLib 
-                loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
+    handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
     self assert: ( handle notNil ).
-    handle close.
+    "/ handle release.
 
-    handle := Win32OperatingSystem::ITypeLib 
-                loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'.
+    handle := OleCom::ITypeLib loadTypeLib:'c:\WINDOWS\system32\Macromed\Flash\swflash.ocx'.
     self assert: ( handle notNil ).
-    handle close.
+    "/ handle release.
 
     "
      self run:#test01_loadTypeLib
@@ -65,14 +59,13 @@
 
     |handle numInfo|
 
-    handle := Win32OperatingSystem::ITypeLib 
-                loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
+    handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
     self assert: ( handle notNil ).
 
     numInfo := handle getTypeInfoCount.
     self assert: ( numInfo > 0 ).
 
-    handle close.
+    "/ handle release.
 
     "
      self run:#test02_getTypeInfoCount
@@ -81,8 +74,8 @@
 !
 
 test03_coInitialize
-    Win32OperatingSystem::OleObject coInitialize. 
-    Win32OperatingSystem::OleObject coUninitialize. 
+    OleCom coInitialize. 
+    OleCom coUninitialize. 
 
     "
      self run:#test03_coInitialize