diff --git a/harbour/contrib/libct/datetime.prg b/harbour/contrib/libct/datetime.prg
index 5f25efe6fe..913da40ece 100644
--- a/harbour/contrib/libct/datetime.prg
+++ b/harbour/contrib/libct/datetime.prg
@@ -207,7 +207,7 @@ Function EOQ( date)
  if (empty(date))
   return (date)
  endif
- yyyy := NtoS( Year( date))
+ yyyy := Str( Year( date), 4, 0)
  If ( m := Month( date)) <= 3
   eoq := StoD( yyyy + '0331')
  ElseIf m <= 6