Fix EXPAND-BLOCK return value

Without it, compilation fails: http://paste.lisp.org/+2WI1