From b40a5a78378f4bf0fe5267f0817fdb83601d31c6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sat, 11 Oct 2014 14:09:40 +0100
Subject: [PATCH] fix change in undef.

---
 pl/debug.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/debug.yap b/pl/debug.yap
index 8cd74509d..2a9e4f7d6 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -900,7 +900,7 @@ be lost.
 	( '$do_spy'(Cl, M, CP, debugger) ; InRedo = true ).
 '$spycall_expanded'(G, M, CalledFromDebugger, InRedo) :-
 	'$undefined'(G, M), !,
-	'$find_goal_definition'(M, G, NM, Goal),
+	'$get_undefined_pred'(G, M, Goal, NM), NM \= M,
 	'$spycall'(Goal, NM, CalledFromDebugger, InRedo).
 '$spycall_expanded'(G, M, _, InRedo) :-
 	% I lost control here.