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))