class TEST
inherit

	A

	D
		undefine
			my_routine
		end

create
	make

feature
	
	make
		local
			l_retried: BOOLEAN
		do
			if not l_retried then
				my_routine
			end
		rescue
			io.put_string ("Ok")
			l_retried := True
			retry
		end

end