--- a/DirectoryStream.st	Wed Sep 24 04:54:50 1997 +0200
+++ b/DirectoryStream.st	Wed Sep 24 05:45:29 1997 +0200
@@ -331,7 +331,7 @@
 {
     struct dsc$descriptor_s res;
     char                    *p;
-    char                    buff[sizeof dd->entry.d_name];
+    char                    buff[sizeof dd->entry.d_name + 10];
     int                     i;
 
     /* Set up result descriptor, and get next file. */
@@ -360,6 +360,11 @@
     if (p = strchr(dd->entry.d_name, ';'))
 	*p = '\0';
 
+    /* claus: empty dirs seems to leave *.* in the buffer ... */
+    if (strcmp(dd->entry.d_name, "*.*") == 0) {
+	return NULL;
+    }
+
     dd->entry.d_namlen = strlen(dd->entry.d_name);
 
     dd->entry.vms_verscount = 0;
@@ -668,5 +673,5 @@
 !DirectoryStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.39 1997-09-20 21:06:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.40 1997-09-24 03:45:25 cg Exp $'
 ! !