diff --git a/source/Sagan-Core/InMemoryRepository.class.st b/source/Sagan-Core/InMemoryRepository.class.st
index 1a1da58..cfc8b91 100644
--- a/source/Sagan-Core/InMemoryRepository.class.st
+++ b/source/Sagan-Core/InMemoryRepository.class.st
@@ -73,7 +73,7 @@ InMemoryRepository >> findAllMatching: aCriteriaOrBlock [
 InMemoryRepository >> findAllMatching: aCriteriaOrBlock limitedTo: aMaxNumberOfResults sortedByAscending: aVariableName [
 
   ^ ( ( self contentsSortedByAscending: aVariableName ) select:
-        ( self asMatchingCriteria: aCriteriaOrBlock ) ) copyUpTo: aMaxNumberOfResults
+        ( self asMatchingCriteria: aCriteriaOrBlock ) ) copyFirst: aMaxNumberOfResults
 ]
 
 { #category : 'querying' }