Index: luatex.web
===================================================================
--- luatex.web	(revision 1786)
+++ luatex.web	(working copy)
@@ -30106,14 +30106,12 @@
     end;
   dir_BL_: begin
     cur_h:=left_edge;
-    cur_v:=cur_v+pdf_height(p);
     end;
   dir_TR_: begin
-    cur_h:=cur_h-pdf_width(p);
+    cur_h:=left_edge-pdf_width(p);
     end;
   dir_BR_: begin
-    cur_h:=cur_h-pdf_width(p);
-    cur_v:=cur_v+pdf_height(p);
+    cur_h:=left_edge-pdf_width(p);
     end;
   othercases cur_h:=left_edge;
   endcases;