diff --git a/tcl/Exception.i b/tcl/Exception.i
index 39d73c46..0c4d788e 100644
--- a/tcl/Exception.i
+++ b/tcl/Exception.i
@@ -23,7 +23,7 @@
 // This notice may not be removed or altered from any source distribution.
 
 %exception {
-  try { $function }
+  try { $action }
   catch (std::bad_alloc &) {
     fprintf(stderr, "Error: out of memory.\n");
     exit(1);