diff --git a/compiler/macros.lisp b/compiler/macros.lisp
index 2e3c23c8b88447104d8a1eac51ac080e8de5243e..d9637fc25f833cdf88c5b3984b042bdb6fd05729 100644
--- a/compiler/macros.lisp
+++ b/compiler/macros.lisp
@@ -697,7 +697,8 @@
   `(let ((*free-variables* (make-hash-table :test #'eq))
 	 (*free-functions* (make-hash-table :test #'equal))
 	 (*constants* (make-hash-table :test #'equal))
-	 (*source-paths* (make-hash-table :test #'eq)))
+	 (*source-paths* (make-hash-table :test #'eq))
+	 (*failed-optimizations* (make-hash-table :test #'eq)))
      ,@forms))