diff --git a/pl/debug.yap b/pl/debug.yap
index 6ecf1db47..7b957cf7a 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -448,6 +448,11 @@ debugging :-
 	
 
 % 
+'$spycall'(G, M, _) :-
+	nb_getval('$debug_run',StopPoint),
+	StopPoint \= off,
+	!,
+	'$execute_nonstop'(G, M).
 '$spycall'(G, M, _) :-
         '$system_predicate'(G,M),
          \+ '$is_metapredicate'(G,M),