Fix typo.

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index e843f40b68d8eb9b65ba337f5d2a7577f276d62f..b7c0bdaa63cb1955438473d1c4453a10b30e1752 100644 (file)
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: snr.scm,v 1.10 1996/05/15 04:40:17 cph Exp $
+;;;    $Id: snr.scm,v 1.11 1996/05/15 05:51:26 cph Exp $
 ;;;
 ;;;    Copyright (c) 1995-96 Massachusetts Institute of Technology
 ;;;
@@ -3197,7 +3197,7 @@ With prefix arg, replaces the file with the list information."
                      (let loop ((item (first-item item)) (n n))
                        (let ((previous (previous-item buffer item)))
                          (procedure buffer item previous n)
-                         (if (< n 1)
+                         (if (< n -1)
                              (if previous
                                  (loop previous (+ n 1))
                                  (editor-failure)))))))))