Index: time.test
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/test-suite/tests/time.test,v
retrieving revision 1.1
diff -u -r1.1 time.test
--- time.test	15 Jun 1999 14:09:53 -0000	1.1
+++ time.test	2 May 2004 19:20:39 -0000
@@ -24,5 +24,7 @@
 (pass-if "strftime %Z doesn't return garbage"
 	 (let ((t (localtime (current-time))))
 	   (vector-set! t 10 "ZOW")
+	   ; Make sure that daylight savings time is disabled.
+	   (vector-set! t 8 0)
 	   (string=? (strftime "%Z" t)
 		     "ZOW")))