diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 0e1b612a5..4c379802b 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -1434,10 +1434,8 @@ sub do_x
 	}
 	elsif (lc(substr($xprm[0],0,9)) eq 'papersize')
 	{
-	    my ($px,$py)=split(',',substr($xprm[0],10));
-	    $px=GetPoints($px);
-	    $py=GetPoints($py);
-	    @mediabox=(0,0,$px,$py);
+	    my ($pl,$pw)=split(',',substr($xprm[0],10));
+	    @mediabox=(0,0,GetPoints($pw),GetPoints($pl));
 	    my @mb=@mediabox;
 	    $matrixchg=1;
 	    $custompaper=1;