diff --git a/ChangeLog b/ChangeLog
index 96ae404a3..94064e927 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-27  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/NSWorkspace.m: Fix error in testing base path for app.
+
 Wed Jun 26 17:50:39 2002  Nicola Pero  <n.pero@mi.flashnet.it>
 
 	* Source/NSTextField.m ([-textDidEndEditing:]): Post the
diff --git a/Source/NSWorkspace.m b/Source/NSWorkspace.m
index 2d0c9d680..15fc6011a 100644
--- a/Source/NSWorkspace.m
+++ b/Source/NSWorkspace.m
@@ -564,7 +564,7 @@ inFileViewerRootedAtPath: (NSString*)rootFullpath
    * If the original name included a path, check that the located name
    * matches it.  If it doesn't we return nil as MacOS-X does.
    */
-  if (base != nil
+  if ([base length] > 0
     && [base isEqual: [path stringByDeletingLastPathComponent]] == NO)
     {
       path = nil;