converted to lisp-unit2 re ADWolf:#1201