--- projects/cms/source/host/winhost/Imports.bas	2001/02/26 08:53:48	1.2
+++ projects/cms/source/host/winhost/Imports.bas	2001/02/26 09:23:34	1.3
@@ -70,7 +70,7 @@ Public Declare Function GetVersionExA Lib "kernel32" _
          hGDISegment As Integer
       End Type
 
-      Declare Function getVersion Lib "kernel32" Alias "GetVersion" () As Long
+      Declare Function GetVersion Lib "kernel32" () As Long
       Declare Function GetWinFlags Lib "kernel32" () As Long
       'Enter each of the following Declare statements as one, single line:
       Declare Function GetFreeSpace Lib "kernel32" (ByVal wFlags As Integer) As Long
@@ -79,7 +79,7 @@ Public Declare Function GetVersionExA Lib "kernel32" _
    #End If
    
    
-         Public Function getVersion() As String
+         Public Function GetVersion() As String
             Dim osinfo As OSVERSIONINFO
             Dim retvalue As Integer
 
@@ -91,20 +91,20 @@ Public Declare Function GetVersionExA Lib "kernel32" _
             Select Case .dwPlatformId
                Case 1
                   If .dwMinorVersion = 0 Then
-                     getVersion = "Windows 95"
+                     GetVersion = "Windows 95"
                   ElseIf .dwMinorVersion = 10 Then
-                     getVersion = "Windows 98"
+                     GetVersion = "Windows 98"
                   End If
                Case 2
                   If .dwMajorVersion = 3 Then
-                     getVersion = "Windows NT 3.51"
+                     GetVersion = "Windows NT 3.51"
                   ElseIf .dwMajorVersion = 4 Then
-                     getVersion = "Windows NT 4.0"
+                     GetVersion = "Windows NT 4.0"
                   ElseIf .dwMajorVersion = 5 Then
-                     getVersion = "Windows 2000"
+                     GetVersion = "Windows 2000"
                   End If
                Case Else
-                  getVersion = "Failed"
+                  GetVersion = "Failed"
             End Select
             End With
          End Function