diff --git a/bind8/list_gen.cgi b/bind8/list_gen.cgi
index 15cb3fff6..256f684d4 100755
--- a/bind8/list_gen.cgi
+++ b/bind8/list_gen.cgi
@@ -36,7 +36,7 @@ else {
 	}
 my $i = 0;
 foreach my $g (@gens, { }) {
-	my @gv = $g->{'generate'};
+	my @gv = @{$g->{'generate'}};
 	my @cols = ( );
 	my @r = $gv[0] =~ /^(\d+)-(\d+)(\/(\d+))?$/ ? ( $1, $2, $4 ) : ( );
 	push(@cols, &ui_select("type_$i", uc($gv[2]),