X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=a62586a19598c2d7bd11c306a08f77ced71ae4ff;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=01421bbb164ad656d010b97646bd2f9216f481db;hpb=38f18f2eb2a1d66d2c138a2f5e10e6be93aacb1b;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 01421bb..a62586a 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -689,7 +689,7 @@
 	     (when (= pos (read-sequence string error-stream))
 	       (setq lineno (1+ (count #\Newline string))
 		     colno (- pos
-			      (or (position #\Newline string :from-end t) 0)
+			      (or (position #\Newline string :from-end t) -1)
 			      1))))
 	   (file-position error-stream pos))
 	 (format stream