diff --git a/CHANGES.current b/CHANGES.current
index 46e4c5d46..1fc21375b 100644
--- a/CHANGES.current
+++ b/CHANGES.current
@@ -1,6 +1,10 @@
 Version 1.3.32 (in progress)
 ============================
 
+03/25/2007: wuzzeb (John Lenz)
+	    [perl5] Add SWIG_fail to the SWIG_exception macro.  Fixes a few problems reported
+	    on the mailing list.
+
 03/23/2007: wsfulton
             String copying patch from Josh Cherry reducing memory consumption by about 25%.
 
diff --git a/Lib/perl5/exception.i b/Lib/perl5/exception.i
index 1e80d96d5..b786f25e2 100644
--- a/Lib/perl5/exception.i
+++ b/Lib/perl5/exception.i
@@ -1,5 +1,5 @@
 %include <typemaps/exception.swg>
 
 %insert("runtime") {
-  %define_as(SWIG_exception(code, msg), %block(%error(code, msg);))
+  %define_as(SWIG_exception(code, msg), %block(%error(code, msg); SWIG_fail; ))
 }