135c135
< 			     #+lispworks (concatenate 'string "." (pathname-type (cl-user::compile-file-pathname "")))
---
> 			     #+lispworks ".ufsl"