--- rxvt-unicode/src/rxvtperl.xs	2006/01/18 08:33:34	1.72
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/18 09:40:53	1.73
@@ -1514,8 +1514,17 @@
 
         if (items == 3)
           {
-            rc.row = clamp (SvIV (ST (1)), THIS->top_row, THIS->nrow - 1);
-            rc.col = clamp (SvIV (ST (2)), 0, THIS->ncol - 1);
+            rc.row = SvIV (ST (1));
+            rc.col = SvIV (ST (2));
+
+            if (ix == 2 && rc.col == 0)
+              {
+                rc.row--;
+                rc.col = THIS->ncol;
+              }
+
+            clamp_it (rc.col, 0, THIS->ncol);
+            clamp_it (rc.row, THIS->top_row, THIS->nrow - 1);
 
             if (ix)
               THIS->want_refresh = 1;