Index: Include/Classes/System/Collections/ArrayList.ab
===================================================================
--- Include/Classes/System/Collections/ArrayList.ab	(revision 232)
+++ Include/Classes/System/Collections/ArrayList.ab	(revision 233)
@@ -319,5 +319,5 @@
 
 	Static Function FixedSize(l As IList) As IList
-		Return FixedSize(Adapter(VarPtr(i)))
+		Return FixedSize(Adapter(VarPtr(l)))
 	End Function
 
@@ -327,5 +327,5 @@
 
 	Static Function ReadOnly(l As IList) As IList
-		Return ReadOnly(Adapter(VarPtr(i)))
+		Return ReadOnly(Adapter(VarPtr(l)))
 	End Function
 
Index: Include/Classes/System/Environment.ab
===================================================================
--- Include/Classes/System/Environment.ab	(revision 232)
+++ Include/Classes/System/Environment.ab	(revision 233)
@@ -53,5 +53,5 @@
 		If osVer = Nothing Then
 			Dim vi As OSVERSIONINFO
-			GetVersionInfoEx(vi)
+			GetVersionEx(vi)
 			osVer = New OperatingSystem(vi)
 		End If
Index: Include/Classes/System/Math.ab
===================================================================
--- Include/Classes/System/Math.ab	(revision 232)
+++ Include/Classes/System/Math.ab	(revision 233)
@@ -68,5 +68,5 @@
 			Asin = _System_GetNaN()
 		Else
-			Asin = ATan(x / Sqrt(1 - x * x))
+			Asin = Math.Atan(x / Sqrt(1 - x * x))
 		End If
 	End Function
@@ -126,5 +126,5 @@
 	Static Function Ceiling(x As Double) As Long
 		If Floor(x) = x then
-			Return x
+			Return x As Long
 		Else
 			Return Floor(x) + 1
@@ -144,5 +144,5 @@
 	Static Function Cosh(value As Double) As Double
 		Dim t As Double
-		t = Exp(value)
+		t = Math.Exp(value)
 		return (t + 1 / t) * 0.5
 	End Function
@@ -514,5 +514,5 @@
 		If Math.Abs(x) > _System_EPS5 Then
 			Dim t As Double
-			t = Exp(x)
+			t = Math.Exp(x)
 			Return (t - 1 / t) * 0.5
 		Else
@@ -571,7 +571,7 @@
 	Static Function Tanh(x As Double) As Double
 		If x > _System_EPS5 Then
-			Return 2 / (1 + Exp(-2 * x)) - 1
+			Return 2 / (1 + Math.Exp(-2 * x)) - 1
 		ElseIf x < -_System_EPS5 Then
-			Return 1 - 2 / (Exp(2 * x) + 1)
+			Return 1 - 2 / (Math.Exp(2 * x) + 1)
 		Else
 			Return x * (1 - x * x * 0.333333333333333) 'x * (1 - x * x / 3)
@@ -591,7 +591,7 @@
 
 		If x >= 0 Then
-			k = Fix(x * _System_InverseHalfPI) + 0.5
-		Else
-			k = Fix(x * _System_InverseHalfPI) - 0.5
+			k = ( Fix(x * _System_InverseHalfPI) + 0.5 ) As Long
+		Else
+			k = ( Fix(x * _System_InverseHalfPI) - 0.5 ) As Long
 		End If
 		x = (x - (3217.0 / 2048.0) * k) + _System_D * k
Index: Include/Classes/System/OperatingSystem.ab
===================================================================
--- Include/Classes/System/OperatingSystem.ab	(revision 232)
+++ Include/Classes/System/OperatingSystem.ab	(revision 233)
@@ -18,5 +18,5 @@
 	Sub OperatingSystem(vi As OSVERSIONINFOA)
 		pf = vi.dwPlatformId As PlatformID,
-		ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)
+		ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
 		sp = vi.szCSDVersion
 	End Sub
@@ -24,5 +24,5 @@
 	Sub OperatingSystem(vi As OSVERSIONINFOW)
 		pf = vi.dwPlatformId As PlatformID,
-		ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)
+		ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
 		sp = vi.szCSDVersion
 	End Sub
Index: Include/Classes/System/Runtime/InteropServices/GCHandle.ab
===================================================================
--- Include/Classes/System/Runtime/InteropServices/GCHandle.ab	(revision 232)
+++ Include/Classes/System/Runtime/InteropServices/GCHandle.ab	(revision 233)
@@ -16,5 +16,5 @@
 
 	Const Function IsAllocated() As Boolean
-		Retrun handle <> 0
+		Return handle <> 0
 	End Function
 
Index: Include/Classes/System/TimeSpan.ab
===================================================================
--- Include/Classes/System/TimeSpan.ab	(revision 232)
+++ Include/Classes/System/TimeSpan.ab	(revision 233)
@@ -40,5 +40,5 @@
 
 	Function Operator/ (value As Long) As TimeSpan
-		Return FromTicks(m_Value \ value)
+		Return FromTicks(m_Time \ value)
 	End Function
 
Index: Include/Classes/System/Version.ab
===================================================================
--- Include/Classes/System/Version.ab	(revision 232)
+++ Include/Classes/System/Version.ab	(revision 233)
@@ -57,9 +57,9 @@
 	End Function
 
-	Const Function MajorRivision() As Integer
+	Const Function MajorRevision() As Integer
 		Return HIWORD(revision) As Integer
 	End Function
 
-	Const Function MinorRivision() As Integer
+	Const Function MinorRevision() As Integer
 		Return LOWORD(revision) As Integer
 	End Function
@@ -72,5 +72,5 @@
 		CompareTo = build - v.build
 		If CompareTo <> 0 Then Exit Function
-		CompareTo = rivision - v.rivision
+		CompareTo = revision - v.revision
 	End Function
 
@@ -80,5 +80,5 @@
 
 	Override Function GetHashCode() As Long
-		Return _System_BSwap(major As DWord) Xor minor Xor build Xor _System_BSwap(rivision As DWord)
+		Return _System_BSwap(major As DWord) Xor minor Xor build Xor _System_BSwap(revision As DWord)
 	End Function
 
@@ -111,6 +111,6 @@
 		If build >= 0 Then
 			ToString = ToString + "." + Str$(build)
-			If rivision >= 0 Then
-				ToString = ToString + "." + Str$(rivision)
+			If revision >= 0 Then
+				ToString = ToString + "." + Str$(revision)
 			End If
 		End If
@@ -136,9 +136,9 @@
 		If fieldCount = 3 Then Exit Function
 
-		If rivision < 0 Then
+		If revision < 0 Then
 			' Throw ArgumentException
 			Debug
 		End If
-		ToString = ToString + "." + Str$(rivision)
+		ToString = ToString + "." + Str$(revision)
 	End Function
 Private
@@ -146,5 +146,5 @@
 	minor As Long
 	build As Long
-	rivision As Long
+	revision As Long
 End Class
 
Index: Include/WinNT.ab
===================================================================
--- Include/WinNT.ab	(revision 232)
+++ Include/WinNT.ab	(revision 233)
@@ -6358,12 +6358,12 @@
 Sub /*FORCEINLINE*/ TpInitializeCallbackEnviron(ByRef CallbackEnviron As TP_CALLBACK_ENVIRON)
 	With CallbackEnviron
-		Version = 1
-		Pool = NULL
-		CleanupGroup = NULL
-		CleanupGroupCancelCallback = NULL
-		RaceDll = NULL
-		ActivationContext = NULL
-		FinalizationCallback = NULL
-		Flags = 0
+		.Version = 1
+		.Pool = NULL
+		.CleanupGroup = NULL
+		.CleanupGroupCancelCallback = NULL
+		.RaceDll = NULL
+		.ActivationContext = NULL
+		.FinalizationCallback = NULL
+		.Flags = 0
 	End With
 End Sub
Index: Include/system/string.sbp
===================================================================
--- Include/system/string.sbp	(revision 232)
+++ Include/system/string.sbp	(revision 233)
@@ -157,5 +157,5 @@
 
 Function GetTCStr(ByRef s As String, ByRef wcs As PCTSTR) As SIZE_T
-	Return GetStr(s.Chars, s.Length As SIZE_T, tcs)
+	Return GetStr(s.Chars, s.Length As SIZE_T, wcs)
 End Function
 
@@ -177,5 +177,5 @@
 
 Function GetSCStr(ByRef s As String, ByRef wcs As *StrChar) As SIZE_T
-	Return GetStr(s.Chars, s.Length As SIZE_T, ss)
+	Return GetStr(s.Chars, s.Length As SIZE_T, wcs)
 End Function