diff --git a/source/Buoy-Collections-GS64-Extensions/Array.extension.st b/source/Buoy-Collections-GS64-Extensions/Array.extension.st
new file mode 100644
index 0000000..e8b3ab5
--- /dev/null
+++ b/source/Buoy-Collections-GS64-Extensions/Array.extension.st
@@ -0,0 +1,10 @@
+Extension { #name : #Array }
+
+{ #category : #'*Buoy-Collections-GS64-Extensions' }
+Array >> fillFrom: aCollection with: aBlock [
+
+	| index |
+	index := 0.
+	aCollection do: [ :each |
+		self at: (index := index + 1) put: (aBlock value: each) ]
+]