diff --git a/R/accessors-week.r b/R/accessors-week.r
index 586d911a..758e402a 100644
--- a/R/accessors-week.r
+++ b/R/accessors-week.r
@@ -21,13 +21,11 @@ NULL
 #' week(x) <- 54
 #' week(x) > 3
 week <- function(x)
-  yday(x) %/% 7 + 1
-
+  (yday(x) - 1) %/% 7 + 1
   
 "week<-" <- function(x, value)
   x <- x + days((value - week(x)) * 7)
 
-
 isoweek <- function(x){
   xday <- ISOdate(year(x), month(x), day(x), tz = tz(x))
   dn <- 1 + (wday(x) + 5) %% 7