From f42df1c288abd58d5b3a94253fa1683333448814 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 10 Jun 1999 16:29:16 +0000
Subject: [PATCH] ..

original commit: 84a9c8bd6c978865ce99d19f47ae6bd42b48cb7b
---
 collects/framework/finder.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss
index e351aef2..c7e2631e 100644
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@@ -542,6 +542,7 @@
 	[ok-button
 	 (make-object button% "OK" bottom-panel do-ok '(border))])
       (sequence
+        (printf "start-dir: ~s~n" start-dir)
 	(cond
 	  [(and start-dir
 		(directory-exists? start-dir))