diff -ruNb a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
--- a/src/devices/gropdf/gropdf.pl	2012-09-20 08:48:28.000000000 +0100
+++ b/src/devices/gropdf/gropdf.pl	2012-10-16 18:02:37.000000000 +0100
@@ -2669,6 +2669,7 @@
 	$lwidth=$p[0];
 	$stream.="$p[0] w\n";
 	$poschg=1;
+	$xpos+=$lwidth;
     }
     elsif ($Dcmd eq 'a')
     {
@@ -3014,6 +3015,14 @@
 sub do_t
 {
     my $par=shift;
+
+    if ($kernadjust != $curkern)
+    {
+	PutLine();
+	$stream.="$kernadjust Tc\n";
+	$curkern=$kernadjust;
+    }
+
     my $wid=TextWid($par);
 
     $par=reverse(split('',$par)) if $xrev;
@@ -3038,13 +3047,6 @@
     # $nomove = width of char(s) added by 'C', 'N' or 'c'
     # $w-flg  = 'w' seen since last t
 
-    if ($kernadjust != $curkern)
-    {
-	PutLine();
-	$stream.="$kernadjust Tc\n";
-	$curkern=$kernadjust;
-    }
-
     if ($fontchg)
     {
 	PutLine();