From 59222c9505c42ce998b7dbef0b08077a2b0adc3c Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sat, 12 Jul 2014 22:23:04 +0000
Subject: lisp-on-tex (12jul14)

git-svn-id: svn://tug.org/texlive/trunk@34578 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty')

diff --git a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty
index e93e752521f..5a6f66cf00b 100644
--- a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty
+++ b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-read.sty
@@ -21,7 +21,8 @@
     \def\@@next{\@lispread@cell#1}%
   \else\ifcat\noexpand#2\relax% [Branch 2] A control sequence or a control symbol 
     \ifx#2\@end@lispread % [Branch 2-1] EOI
-      \def\@@next{\endgroup#1\@tlabel@exception{!Found End of Input!}}%
+      \def\@@next{\endgroup#1%
+        \@tlabel@exception{{-1}{\@tlabel@string{!Found End of Input!}}}}%
     \else
       \def\@@next{\@lispread@symbol#1#2}% [Branch 2-2] Symbol
     \fi
-- 
cgit v1.2.3

