--- physical-line.el.org	2003-08-10 22:47:22.000000000 +0900
+++ physical-line.el	2003-08-10 22:21:41.000000000 +0900
@@ -341,6 +341,7 @@
   (let ((cur-point (point))
 	(eol-point (point-at-eol))
 	(bol-point (point-at-bol))
+	(i 0)
 	phy-bol-list)
     (if (integerp arg)
 	(progn
@@ -351,8 +352,10 @@
 	    )))
     (goto-char bol-point)
     (while (< (point) eol-point)
-      (setq phy-bol-list (cons (point) phy-bol-list))
-      (vertical-motion 1)
+    (setq phy-bol-list (cons (point) phy-bol-list)
+    i (1+ i))
+    (goto-char bol-point)
+    (vertical-motion i)
       )
     (if (= (point) eol-point)
 	(setq phy-bol-list (cons (point) phy-bol-list)))