 		(progn (forward-sexp 1)
 		       ;; advance if we have a |
 		       (when (looking-at "|")
-			 (forward-sexp 1))
+			 (or (re-search-forward "|" (line-end-position) t 2)
+			     (forward-sexp 1)))
 		       (while (looking-at "\\s'")
 			 (forward-char 1))
 		       (point))))))		

;;* 
;;  COPYRIGHT (C) PLANISWARE 2016-05-27
;;
;;  All Rights Reserved
;;

(add-hook 'fi:lisp-listener-mode-hook 'add-restart-item t)


(defvar *eli-prompt-package-regexp* "^\\(?:[\\[0-9c\\]*]\\)?\\s-*\\([a-zA-Z-_]+\\)([0-9]+):")

(defun find-prompt-package ()
  (save-excursion
    (save-match-data      
      (when (re-search-backward *eli-prompt-package-regexp* (point-min) t)
	(match-string-no-properties 1)))))

