| search |
search := [:fname :keywd |
	FileStream oldFileNamed: fname do: [:file |
		(file findString: keywd) > 0
	]
].
search value: 'test.txt' value: 'search'