Merge pull request #5122 from noha/fix-nextVersion-for-basenames

Backport - Fix nextVersion for cases where an entry with basename only exists in…
pharo-project · Nov 20, 2019 · 1d40ea7 · 1d40ea7
2 parents a39728a + 795385e
commit 1d40ea7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/FileSystem-Core/FileReference.class.st b/src/FileSystem-Core/FileReference.class.st
@@ -366,7 +366,8 @@ FileReference >> nextVersion [
 	parent := self parent.
 	nameWithoutExtension := self basename copyUpTo: $..
 
-	versionNumbers := parent children 
+	"Check for filenames with the assumption it consists at least of basename and a single dot"
+	versionNumbers := (parent childrenMatching: nameWithoutExtension, '.*') 
 				select: [ :f| 
 					(f basename beginsWith: nameWithoutExtension) ]
 				thenCollect: [ :f|