diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 1c5f68369..45d23608c 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -101,6 +101,7 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
 				       push_action_params
 				       pop_action_params
 				       default_action_params
+				       read_action_param
 				       read_a_line
 				       validate_level
 				       which
@@ -1819,6 +1820,13 @@ sub default_action_params {
     }
 }
 
+sub read_action_param( $ ) {
+    my $i = shift;
+
+    fatal_error "Parameter numbers must be numeric" unless $i =~ /^\d+$/;
+    $actparams{$i};
+}
+
 #
 # Read a line from the current include stack.
 #