diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss
index c7e2631e..893e4809 100644
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@@ -720,6 +720,7 @@
   
   (define -get-file
     (lambda args
+      (printf "get-file: ~s~n" args)
       (let ([actual-fun
 	     (case (preferences:get 'framework:file-dialogs)
 	       [(std) std-get-file]