diff --git a/pl/debug.yap b/pl/debug.yap
index c3aa028e9..08f3d8acd 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -48,7 +48,8 @@
 	(
 	  current_predicate(A,M:_)
 	->
-	  M = EM
+	 M = EM,
+	 A = NA
 	;
 	 recorded('$import','$import'(EM,M,GA,_,A,_),_),
 	 functor(GA,NA,_)