diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.ss
index 2ebd821a..db2abd16 100644
--- a/collects/framework/private/bday.ss
+++ b/collects/framework/private/bday.ss
@@ -1,6 +1,7 @@
 (module bday mzscheme
   (provide mrf-bday?
-           mf-bday?)
+           mf-bday?
+           sk-bday?)
   
   ;; mf-bday? : -> boolean
   ;; Matthias's birthday
@@ -14,4 +15,11 @@
   (define (mrf-bday?)
     (let ([d (seconds->date (current-seconds))])
        (and (= (date-month d) 11)
-            (= (date-day d) 1)))))
\ No newline at end of file
+            (= (date-day d) 1))))
+  
+  ;; sk-bday? : -> boolean
+  ;; Shriram's birthday
+  (define (sk-bday?)
+    (let ([date (seconds->date (current-seconds))])
+      (and (= (date-month date) 4)
+           (= (date-day date) 8)))))