Index: website/cgi-bin/meme_request.pl
===================================================================
--- website/cgi-bin/meme_request.pl	(revision 5663)
+++ website/cgi-bin/meme_request.pl	(working copy)
@@ -246,8 +246,8 @@
   my ($q, @nums) = @_;
 
   my $alphabet = $q->param('alphabet');
-  my $bg = parse_bg($alphabet, $q->param('bgsrc'), $q->param('bgfreq'));
-  my $strands = parse_strands($q->param('strands'), $bg->{dna});
+  my $bg = parse_bg($alphabet, scalar $q->param('bgsrc'), $q->param('bgfreq'));
+  my $strands = parse_strands(scalar $q->param('strands'), $bg->{dna});
   my $output = "";
   my $is_first = 1;
   foreach my $i (@nums) {