--- a/Date.st	Mon Feb 18 09:37:30 2008 +0100
+++ b/Date.st	Fri Feb 22 15:25:59 2008 +0100
@@ -83,7 +83,7 @@
     "read the language specific names."
 
     |enDayNames enDayAbbrevs enMonthNames enMonthAbbrevs
-     enDefaultFormat enLongFormat enShortFormat|
+     enDefaultFormat enLongFormat enShortFormat deMonthAbbrevs|
 
     DayNames := Dictionary new.
     DayAbbrevs := Dictionary new.
@@ -135,10 +135,24 @@
                         'nov'
                         'dec').
 
+    deMonthAbbrevs := #('jan'
+                        'feb'
+                        'mar'
+                        'apr'
+                        'may'
+                        'jun'
+                        'jul'
+                        'aug'
+                        'sep'
+                        'oct'
+                        'nov'
+                        'dez').
+
     DayNames at:#'en' put:enDayNames.
     DayAbbrevs at:#'en' put:enDayAbbrevs.
     MonthNames at:#'en' put:enMonthNames.
     MonthAbbrevs at:#'en' put:enMonthAbbrevs.
+    MonthAbbrevs at:#'de' put:deMonthAbbrevs.
 
     DefaultFormats at:#'en' put:(enDefaultFormat := '%d-%m-%y').
     ShortFormats at:#'en' put:(enShortFormat := '%d-%m-%y').
@@ -2528,7 +2542,7 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.102 2007-10-24 17:51:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.103 2008-02-22 14:25:59 sr Exp $'
 ! !
 
 Date initialize!