diff --git a/src/PharoLauncher-Tests-Functional/FFILibraryFinder.extension.st b/src/PharoLauncher-Tests-Functional/FFILibraryFinder.extension.st
new file mode 100644
index 00000000..b2db6d03
--- /dev/null
+++ b/src/PharoLauncher-Tests-Functional/FFILibraryFinder.extension.st
@@ -0,0 +1,16 @@
+Extension { #name : #FFILibraryFinder }
+
+{ #category : #'*PharoLauncher-Tests-Functional' }
+FFILibraryFinder >> findAnyLibrary: aCollection [
+
+self traceCr: '[FFILibraryFinder] Smalltalk imageDirectory fullName = ', Smalltalk imageDirectory fullName.
+self traceCr: '[FFILibraryFinder] Smalltalk vm directory = ', Smalltalk vm directory.
+	aCollection do: [ :eachName |
+		self paths do: [ :each | | path |
+			path := each / eachName.
+			self traceCr: '[FFILibraryFinder] searching ', path fullName. 
+			path exists
+				ifTrue: [ self traceCr: '[FFILibraryFinder] searching ', path fullName. ^ path fullName ] ] ].
+self traceCr: 'flush'.
+	self error: ('Cannot locate any of {1}. Please check if it installed on your system' format: { aCollection asString })
+]