Index: /Include/Classes/System/DateTime.ab
===================================================================
--- /Include/Classes/System/DateTime.ab	(revision 162)
+++ /Include/Classes/System/DateTime.ab	(revision 163)
@@ -3,5 +3,4 @@
 #ifndef __SYSTEM_DATETIME_AB__
 #define __SYSTEM_DATETIME_AB__
-
 
 Class DateTime
@@ -11,4 +10,8 @@
 	Static MinValue = 316224000000000 As Int64 'Const
 
+	Sub DateTime()
+		DateTime(316224000000000)
+	End Sub
+
 	Sub DateTime(ticks As Int64)
 		Ticks = ticks
@@ -27,5 +30,5 @@
 		End If
 		DateTime(316224000000000)
-		This = AddYears(year - 1)
+		DateTime( AddYears(year - 1) )
 
 		Dim days As Long
@@ -35,5 +38,5 @@
 		Next
 		days += day
-		This = AddDays(days - 1)
+		DateTime( AddDays(days - 1) )
 	End Sub
 
@@ -48,8 +51,9 @@
 			debug
 		End If
+
 		DateTime(year, month, day)
-		This = AddHours(hour)
-		This = AddMinutes(minute)
-		This = AddSeconds(second)
+		DateTime( AddHours(hour) )
+		DateTime( AddMinutes(minute) )
+		DateTime( AddSeconds(second) )
 	End Sub
 
@@ -61,5 +65,5 @@
 	Sub DateTime(year As Long, month As Long, day As Long, hour As Long, minute As Long, second As Long, millisecond As Long)
 		DateTime(year, month, day, hour, minute, second)
-		This = AddMilliseconds(millisecond)
+		DateTime( AddMilliseconds(millisecond) )
 	End Sub