Index: Include/Classes/System/Math.ab
===================================================================
--- Include/Classes/System/Math.ab	(revision 91)
+++ Include/Classes/System/Math.ab	(revision 92)
@@ -147,5 +147,5 @@
 		End If
 
-		Return Sin(_System_HalfPI - Abs(x))
+		Return Math.Sin((_System_HalfPI - Abs(x)) As Double)
 	End Function
 
@@ -510,5 +510,5 @@
 		Dim t As Double
 
-		t = urTan(value * 0.5, k)
+		t = urTan((value * 0.5) As Double, k)
 		t = 2 * t / (1 + t * t)
 		If (k And 1) = 0 Then 'k mod 2 = 0 Then
@@ -587,9 +587,11 @@
 	End Function
 
+	'ToString
+
 	Static Function Truncate(x As Double) As Double
 		return Fix(x)
 	End Function
 
-Private
+'Private
 	Static Function urTan(x As Double, ByRef k As Long) As Double
 		Dim i As Long
@@ -597,7 +599,7 @@
 
 		If x >= 0 Then
-			k = ( ( Fix(x * _System_InverseHalfPI) As Double ) + 0.5 ) As Long
-		Else
-			k = ( ( Fix(x * _System_InverseHalfPI) As Double ) - 0.5 ) As Long
+			k = Fix(x * _System_InverseHalfPI) + 0.5
+		Else
+			k = Fix(x * _System_InverseHalfPI) - 0.5
 		End If
 		x = (x - (3217.0 / 2048.0) * k) + _System_D * k