diff -u --recursive trunk.orig/src/library/graphics/R/datetime.R trunk/src/library/graphics/R/datetime.R
--- trunk.orig/src/library/graphics/R/datetime.R	2008-07-20 18:18:38.000000000 +0200
+++ trunk/src/library/graphics/R/datetime.R	2008-12-01 17:27:32.000000000 +0100
@@ -29,10 +29,10 @@
         sc <- 60
         if(missing(format)) format <- "%M:%S"
     } else if (d < 1.1*60*60*24) {# hours
-        sc <- 60*24
+        sc <- 60*60
         if(missing(format)) format <- "%H:%M"
     } else if (d < 2*60*60*24) {
-        sc <- 60*24
+        sc <- 60*60
         if(missing(format)) format <- "%a %H:%M"
     } else if (d < 7*60*60*24) {# days of a week
         sc <- 60*60*24