diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.ss
index 4db6510fa4..998285168a 100644
--- a/collects/drscheme/private/main.ss
+++ b/collects/drscheme/private/main.ss
@@ -564,7 +564,7 @@
                         (when frame
                           (send frame next-tab))))])
      (let ([frame (find-frame windows-menu)])
-       (unless (= 1 (send frame get-tab-count))
+       (unless (or (not frame) (= 1 (send frame get-tab-count)))
          (for ([i (in-range 0 (send frame get-tab-count))]
                #:when (< i 9))
            (new menu-item% 
diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.ss
index e1a9ab22ae..893593a75d 100644
--- a/collects/repos-time-stamp/stamp.ss
+++ b/collects/repos-time-stamp/stamp.ss
@@ -1 +1 @@
-#lang scheme/base (provide stamp) (define stamp "22feb2010")
+#lang scheme/base (provide stamp) (define stamp "23feb2010")