--- a/RegressionTests__TimeAndDateTest.st	Mon Nov 05 18:59:17 2012 +0100
+++ b/RegressionTests__TimeAndDateTest.st	Mon Nov 05 20:04:50 2012 +0100
@@ -142,9 +142,31 @@
 
     self assert:(Date newDay:5 month:1 year:2015) weekInYear == 2.
 
+    "/ every 4th of january is in the 1st week
+    1902 to:2100 do:[:y |
+        |d|
+        d := Date newDay:4 month:1 year:y.
+        self assert:d weekInYear == 1.
+    ].
+
     "
      self new test_03_calenderWeek
     "
+!
+
+test_04_calenderWeek_fails
+    <test: broken>
+^ self.
+    "/ currently fails for date before 1901
+    1900 to:1905 do:[:y |
+        |d|
+        d := Date newDay:4 month:1 year:y.
+        self assert:d weekInYear == 1.
+    ].
+
+    "
+     self new test_04_calenderWeek_fails
+    "
 ! !
 
 !TimeAndDateTest class methodsFor:'documentation'!