diff --git a/scripts/perl/web/mkindex.pl b/scripts/perl/web/mkindex.pl
index 0b1cb28fc..be01f7d0f 100755
--- a/scripts/perl/web/mkindex.pl
+++ b/scripts/perl/web/mkindex.pl
@@ -286,6 +286,7 @@ while ( <MASTER> ) {
 
 	$thumbinfo = `identify $mdir/$linkname.jpg`;
 	($name, $type, $geom, $junk) = split(/\s+/, $thumbinfo, 4);
+	$geom =~ s/\+.*//;
 	($twidth, $theight) = split(/x/, $geom);
         print "movie thumb geom = $geom  $twidth  $theight\n";