--- srfi-19.scm.~1.18.~	2003-04-07 08:05:30.000000000 +1000
+++ srfi-19.scm	2003-07-23 09:08:22.000000000 +1000
@@ -823,6 +823,7 @@
 
 (define (date-week-number date day-of-week-starting-week)
   (quotient (- (date-year-day date)
+	       1
                (priv:days-before-first-week  date day-of-week-starting-week))
             7))