Needed to allow the code in http://paste.lisp.org/display/134966 to work. Patch by Milos Negovanovic.