--- a/FileDirectory.st	Mon Sep 11 00:31:43 1995 +0200
+++ b/FileDirectory.st	Mon Sep 11 02:45:06 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 '!
 
 !FileDirectory class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.22 1995-08-11 03:00:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.23 1995-09-11 00:45:06 claus Exp $
 "
 !
 
@@ -306,8 +306,8 @@
 
     |realName|
 
-    (newName = '.') ifFalse:[
-	(newName = '..') ifFalse:[
+    (newName notNil and:[newName notEmpty]) ifTrue:[
+	(newName ~= '.' and:[newName ~= '..']) ifTrue:[
 	    ((newName at:1) == OperatingSystem fileSeparator) ifTrue:[
 		realName := newName copyFrom:2
 	    ] ifFalse:[