test_name 	once-creation-procedures-qualified-call
test_description Once creation procedure called from 


copy_sub 	Ace $TEST Ace
copy_raw 	a.e $CLUSTER a.e
copy_raw 	test.e $CLUSTER test.e

compile_melted
compile_result 	ok