From 802cb6c7d834dbf665b6f3f6a8701991d23cfab0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 24 Feb 2004 14:46:01 +0000
Subject: [PATCH] .

original commit: a2199634fe84023c3d26a85d46a7d817ca6a3f0c
---
 collects/framework/private/main.ss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 4f4461d0..8e8e5dc6 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -57,7 +57,12 @@
        (lambda (l) (make-object color% (car l) (cadr l) (caddr l))))
       
       (preferences:set-default 'framework:last-directory (find-system-path 'home-dir) path-string?)
-      (preferences:set-un/marshall 'framework:last-directory path->bytes bytes->path)
+      ;; when the set-un/marshall function returns #f, it isn't getting turned into 
+      ;; the default. Hm.
+      (preferences:set-un/marshall 'framework:last-directory path->bytes
+                                   (lambda (x)
+                                     (and (bytes? x)
+                                          (bytes->path x))))
 
       (preferences:set-default 'framework:recent-max-count 
                                50