diff --git a/lib/Webperl/Template.pm b/lib/Webperl/Template.pm
index 7edef1d..5358690 100644
--- a/lib/Webperl/Template.pm
+++ b/lib/Webperl/Template.pm
@@ -719,7 +719,7 @@ sub wizard_box {
 sub build_optionlist {
     my $self       = shift;
     my $options    = shift;
-    my $default    = shift;
+    my $default    = shift // [];
     my $selectopts = shift;
 
     # May as well hard-code the option template.