# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 902173030 -7200
# Node ID d2529646d2356885450631e79c926620cbc27b26
# Parent  ce88c6f64d37fc2b4e1ab164df57e83faf07aebc
oops - needed a kludge to read the top directory under win32

diff -r ce88c6f64d37 -r d2529646d235 Filename.st
--- a/Filename.st	Mon Aug 03 21:24:30 1998 +0200
+++ b/Filename.st	Mon Aug 03 21:37:10 1998 +0200
@@ -2247,7 +2247,7 @@
      This excludes any entries for '.' or '..'."
 
     |s contents|
-    s := DirectoryStream directoryNamed:(self osNameForDirectory).
+    s := DirectoryStream directoryNamed:(self osNameForDirectoryContents).
     s isNil ifTrue:[^nil].
 
     contents := s contents.
@@ -2263,7 +2263,7 @@
     "
 
     "Modified: / 18.9.1997 / 18:42:23 / stefan"
-    "Modified: / 3.8.1998 / 16:47:29 / cg"
+    "Modified: / 3.8.1998 / 21:36:21 / cg"
 !
 
 fullDirectoryContents
@@ -2802,6 +2802,15 @@
     ^ nameString
 !
 
+osNameForDirectoryContents
+    "special - return the OS's name for the receiver to
+     access it as a directory when reading its contents."
+
+    ^ self osNameForDirectory
+
+    "Created: / 3.8.1998 / 21:36:06 / cg"
+!
+
 osNameForFile
     "internal - return the OS's name for the receiver to
      access it as a file."
@@ -2938,6 +2947,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.126 1998-08-03 19:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.127 1998-08-03 19:37:10 cg Exp $'
 ! !
 Filename initialize!