test vm... fix one primitive procedure bug