$NetBSD$

--- src/lisp/core.lisp.in.orig	2009-08-05 09:51:44.000000000 +0000
+++ src/lisp/core.lisp.in
@@ -832,7 +832,7 @@
 		    (setq result nil))
 	 (cond ((null result) 
 		(|coreError| "compilation of Lisp code failed"))
-	       (failure-p
+	       ((and failure-p #+:clisp (not (equal file "patches.lisp")))
 		;; Since we believe the source code must
 		;; be fixed, we don't want to leave
 		;; the generated FASL behing us, as that
