diff --git a/src/pl/tcl/expected/pltcl_setup.out b/src/pl/tcl/expected/pltcl_setup.out
index 3f36a805252..648d45a97ca 100644
--- a/src/pl/tcl/expected/pltcl_setup.out
+++ b/src/pl/tcl/expected/pltcl_setup.out
@@ -507,7 +507,7 @@ CREATE OPERATOR CLASS tcl_int4_ops
 create function tcl_date_week(int4,int4,int4) returns text as $$
     return [clock format [clock scan "$2/$3/$1"] -format "%U"]
 $$ language pltcl immutable;
-select tcl_date_week(2010,1,24);
+select tcl_date_week(2010,1,26);
  tcl_date_week 
 ---------------
  04
diff --git a/src/pl/tcl/sql/pltcl_setup.sql b/src/pl/tcl/sql/pltcl_setup.sql
index df7f9fadd18..2ae1b9180ba 100644
--- a/src/pl/tcl/sql/pltcl_setup.sql
+++ b/src/pl/tcl/sql/pltcl_setup.sql
@@ -557,5 +557,5 @@ create function tcl_date_week(int4,int4,int4) returns text as $$
     return [clock format [clock scan "$2/$3/$1"] -format "%U"]
 $$ language pltcl immutable;
 
-select tcl_date_week(2010,1,24);
+select tcl_date_week(2010,1,26);
 select tcl_date_week(2001,10,24);