diff --git a/lisp/bs.el b/lisp/bs.el
index ac4da0b5c05..0a799b6d514 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -572,7 +572,7 @@ SORT-DESCRIPTION is an element of `bs-sort-functions'."
   "Go to line which represents the current buffer.
 Actually, it goes to the line which begins with the character
 in `bs-string-current' or `bs-string-current-marked'."
-  (let ((regexp (concat "\\`"
+  (let ((regexp (concat "^"
 			(regexp-opt (list bs-string-current
 			                  bs-string-current-marked))))
 	point)