diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index 8f11b43c..ad12c3f0 100644
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@@ -1,7 +1,7 @@
 (module editor mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
-	   "../guiutils-sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "file.ss"))
 
diff --git a/collects/framework/private/exit.ss b/collects/framework/private/exit.ss
index 6e3025b3..98e249a7 100644
--- a/collects/framework/private/exit.ss
+++ b/collects/framework/private/exit.ss
@@ -1,7 +1,7 @@
 (module exit mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
-	   "../guiutils-sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "file.ss"))
 
diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss
index e3b56655..703e8e12 100644
--- a/collects/framework/private/finder.ss
+++ b/collects/framework/private/finder.ss
@@ -1,6 +1,7 @@
 (module finder mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "string.ss")
 	   (lib "list.ss")
@@ -33,19 +34,6 @@
       (define make-relative
 	(lambda (s) s))
       
-      (define current-find-file-directory
-	(opt-lambda ([dir 'get])
-	  (cond
-	   [(eq? dir 'get)
-	    (if (not last-directory)
-		(set! last-directory (current-directory)))
-	    last-directory]
-	   [(and (string? dir)
-		 (directory-exists? dir))
-	    (set! last-directory dir)
-	    #t]
-	   [else #f])))
-      
       (define build-updir
 	(lambda (dir)
 	  (let-values ([(base _1 _2) (split-path dir)])
diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 4cee89dc..8d578917 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1,6 +1,7 @@
 (module frame mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss")
 	   (lib "file.ss"))
diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss
index fc83d1fc..f3dbf0f6 100644
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@@ -1,6 +1,7 @@
 (module handle mzscheme
   (require (lib "unitsig.ss")
 	   "sig.ss"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "file.ss"))
 
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 63828bfd..c93b68ae 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -1,6 +1,7 @@
 (module text mzscheme
   (require (lib "unitsig.ss")
 	   "sig"
+	   "../gui-utils-sig.ss"
 	   (lib "mred-sig.ss" "mred")
 	   (lib "list.ss"))
   (provide text@)
diff --git a/collects/framework/sig.ss b/collects/framework/sig.ss
index aadd834b..077ad931 100644
--- a/collects/framework/sig.ss
+++ b/collects/framework/sig.ss
@@ -1,7 +1,7 @@
 (module sig mzscheme
   (require (lib "unitsig.ss")
 	   "test-sig.ss"
-	   "guiutils-sig.ss"
+	   "gui-utils-sig.ss"
 	   "private/sig.ss")
 
   (provide framework^ frameworkc^)