errirs

pl/messages.yap

@@ -283,9 +283,11 @@ location( error(_,Info), Level, LC ) -->
 	query_exception(prologPredArity, Desc, Ar)
     },
   !,
-display_consulting( File, Level, Info, LC ),
+  display_consulting( File, Level, Info, LC ),
   {simplify_pred(M:Na/Ar,FF)},
- 	[  '~a:~d:0 ~a while executing ~q:'-[File, FilePos,Level,FF] ].
+  [  '~a:~d:0 ~a while executing ~q:'-[File, FilePos,Level,FF] ],
+  {query_exception(prologStack, Desc, Stack)},
+  ( { Stack == [] } -> [] ; [ nl, '~s'- [] ]).
 location( error(_,Info), Level, LC ) -->
 	{ '$error_descriptor'(Info, Desc) },
    {