--- a/DirectoryStream.st	Thu Nov 02 21:41:52 1995 +0100
+++ b/DirectoryStream.st	Fri Nov 03 13:15:09 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.24 1995-11-02 20:10:18 cg Exp $
+$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.25 1995-11-03 12:14:33 cg Exp $
 '!
 
 !DirectoryStream class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.24 1995-11-02 20:10:18 cg Exp $
+$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.25 1995-11-03 12:14:33 cg Exp $
 "
 !
 
@@ -451,7 +451,7 @@
 %{
 #ifdef HAS_OPENDIR
     DIR *d;
-    OBJ path;
+    OBJ path, dp;
 
     ok = false;
     if (_INST(dirPointer) == nil) {
@@ -467,7 +467,7 @@
 	    if (d == NULL) {
 		_INST(lastErrorNumber) = _MKSMALLINT(errno);
 	    } else {
-		_INST(dirPointer) = __MKOBJ(d);
+		_INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp);
 		ok = true;
 	    }
 	}