 (add-hook 'fi:lisp-listener-mode-hook 'add-restart-item t)
 
 
-(defvar *eli-prompt-package-regexp* "^\\(?:[\\[0-9c\\]*]\\)?\\s-*\\(.*\\)([0-9]+):")
+(defvar *eli-prompt-package-regexp* "^\\(?:[\\[0-9c\\]*]\\)?\\s-*\\([a-zA-Z-_]+\\)([0-9]+):")
 
 (defun find-prompt-package ()
   (save-excursion
-    (save-match-data
-      (goto-char (point-max))
+    (save-match-data      
       (when (re-search-backward *eli-prompt-package-regexp* (point-min) t)
 	(match-string-no-properties 1)))))
 

;;  employees for the sole purpose of conducting PLANISWARE business.
;;
;;**************************************************************************
(defun revert-truncate-lines ()
  (interactive)
  (setq truncate-lines (not truncate-lines))

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