Index: trunk/Include/Classes/System/String.ab
===================================================================
--- trunk/Include/Classes/System/String.ab	(revision 307)
+++ trunk/Include/Classes/System/String.ab	(revision 308)
@@ -244,4 +244,15 @@
 	'		End If
 			Return CompareTo(y As String)
+		End Function
+
+		Function Equals(s As String) As Boolean
+			Return This = s
+		End Function
+
+		Override Function Equals(s As Object) As Boolean
+			If This.GetType = s.GetType Then
+				Return This.Equals(s As String)
+			End If
+			Return False
 		End Function