Fix incorrect indentation.

diff --git a/src/runtime/infutl.scm b/src/runtime/infutl.scm
index a6ccf04820c508725e92295b90093ffd8e4e93ce..2facad268ac2f3c4c5aee331186286ff729a9941 100644 (file)
--- a/src/runtime/infutl.scm
+++ b/src/runtime/infutl.scm
@@ -506,9 +506,9 @@ USA.
 
     (define (short-substring-move! s1 start1 end1 s2 start2)
       (do ((i1 start1 (fix:+ i1 1))
-          (i2 start2 (fix:+ i2 1)))
-         ((fix:= i1 end1))
-       (string-set! s2 i2 (string-ref s1 i1))))
+          (i2 start2 (fix:+ i2 1)))
+         ((fix:= i1 end1))
+       (string-set! s2 i2 (string-ref s1 i1))))
 
     (let parse-command ((bp 0) (cp 0) (ip 0) (ip-end 0)
                               (buffer (make-string buffer-size))