From 1d4a9b6b63fa99c1faef4104b873d77fa1c3b6bc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 12 Jun 2000 03:48:09 +0000
Subject: [PATCH] ...

original commit: ff07c125ac5ac774fa9e90700d92cde3327ca0d4
---
 collects/framework/splash.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index 1e61c7d9..b1655836 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -6,7 +6,9 @@
   (let/ec k
     (letrec-values
 	([(no-splash) (lambda () (k void void))]
-	 [(funny?) (zero? (random 1000))]
+	 [(funny?) (let ([date (seconds->date (current-seconds))])
+		     (and (= (date-day date) 25)
+			  (= (date-month date) 12)))]
 	 [(funny-gauge%)
 	  (class canvas% (max-value parent)
 	    (inherit get-dc min-width min-height stretchable-width stretchable-height)