diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss
index c235bd56..4a8943a1 100644
--- a/collects/mred/finder.ss
+++ b/collects/mred/finder.ss
@@ -312,7 +312,7 @@
 		       (lambda (button evt)
 			 (let ([t (send directory-edit get-text)])
 			   (if (directory-exists? t)
-			       (set-directory (normalize-path t))
+			       (set-directory (mzlib:file:normalize-path t))
 			       (wx:bell))))
 		       "Go")