--- a/RegressionTests__DirectoryStreamTest.st	Thu Jan 15 16:03:13 2015 +0100
+++ b/RegressionTests__DirectoryStreamTest.st	Thu Jan 15 16:24:50 2015 +0100
@@ -27,7 +27,7 @@
 test01
     "basic open for appending."
 
-    |s dir|
+    |s dir t|
 
     dir := self testDirName.
     dir asFilename makeDirectory.
@@ -47,8 +47,8 @@
     s := DirectoryStream directoryNamed:dir.
 
     self assert:s atEnd not.
-    self assert:s nextLine = 'foo'.
-    self assert:s atEnd not.
+    self assert:(t := s nextLine) = 'file1'.
+    self assert:s atEnd.
     self assert:s nextLine isNil.
 
     s close.