modified 2.8.lisp