FIXED: Tracer/console interaction

Author: JanWielemaker

lib/trace.pl

@@ -75,9 +75,15 @@
 :- multifile
 	user:prolog_trace_interception/4,
 	user:message_hook/3.
+:- dynamic
+	user:message_hook/3.
+
+intercept_trace_mode_switch :-
+	asserta((user:message_hook(trace_mode(_), _, _) :-
+		    pengine_self(_), !)).
 
-user:message_hook(trace_mode(_), _, _) :-
-	pengine_self(_), !.
+:- initialization
+	intercept_trace_mode_switch.
 
 %!	trace_pengines
 %