diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index d65d99db1..f41420006 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
+;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003, 2004 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -3326,8 +3326,8 @@
 		 signals old-handlers))))))
 
 (defmacro false-if-exception (expr)
-  `(catch #t (lambda () ,expr)
-	  (lambda args #f)))
+  `(,catch #t (,lambda () ,expr)
+	   (,lambda args #f)))
 
 ;;; This hook is run at the very end of an interactive session.
 ;;;