Index: /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab
===================================================================
--- /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 312)
+++ /trunk/Include/Classes/System/Collections/Generic/Dictionary.ab	(revision 313)
@@ -8,13 +8,13 @@
 
 Namespace Detail
-	Class Pair<TKey, T>
+	Class Pair
 	Public
-		Sub Pair(key As TKey, value As T)
+		Sub Pair(key As Object, value As Object)
 			Key = key
 			Value = value
 		End Sub
 
-		Key As TKey
-		Value As T
+		Key As Object
+		Value As Object
 	End Class
 End Namespace 'Detail
@@ -53,5 +53,5 @@
 			Dim i As Long
 			For i = 0 To ELM(a.Count)
-				Dim pair = a[i] As Pair<T, Key>
+				Dim pair = a[i] As Pair
 				If pair.Key.Equals(key) Then
 					Return pair.Value
@@ -81,5 +81,5 @@
 			Dim i As Long
 			For i = 0 To ELM(a.Count)
-				Dim pair = a[i] As Pair<T, Key>
+				Dim pair = a[i] As Pair
 				If pair.Key.Equals(key) Then
 					pair.Value = value
@@ -88,5 +88,5 @@
 		End If
 
-		a.Add(New Pair<T, Key>(key, value))
+		a.Add(New Pair(key, value))
 	End Sub
 
@@ -95,5 +95,6 @@
 /*
 	'Operators
-	Function Operator [](key As Key) As T
+'	Function Operator [](key As Key) As T
+	Function Operator [](key As Key) As Object
 		Return Item[key]
 	End Function
@@ -121,5 +122,5 @@
 			Dim i As Long
 			For i = 0 To ELM(a.Count)
-				Dim pair = a[i] As Pair<T, Key>
+				Dim pair = a[i] As Pair
 				If pair.Key.Equals(key) Then
 					'Throw ArgumentError
@@ -128,5 +129,5 @@
 		End If
 
-		a.Add(New Pair<T, Key>(key, value))
+		a.Add(New Pair(key, value))
 	End Sub
 
@@ -161,5 +162,4 @@
 		Dim e = al[0]
 		Dim p = ObjPtr(e) As ULONG_PTR
-		OutputDebugString(ToTCStr(Str$(p)))
 	End Sub