diff --git a/library/hacks.yap b/library/hacks.yap
index d15b80019..fb9594303 100644
--- a/library/hacks.yap
+++ b/library/hacks.yap
@@ -25,7 +25,7 @@ stack_dump(Max) :-
 	length(CPs, LCPs),
 	length(Envs, LEnvs),
 	format(user_error,'~n~n~tStack Dump~t~40+~n~nAddress~tChoiceP~16+ Cur/Next Clause        Goal~n',[LCPs,LEnvs]),
-	display_stack_info(CPs, Envs, Max, ContP, StackInfo, StackInfo, []),
+	'$hacks':display_stack_info(CPs, Envs, Max, ContP, StackInfo, []),
 	run_formats(StackInfo, user_error).
 
 run_formats([], _).
diff --git a/pl/hacks.yap b/pl/hacks.yap
index 461aeb9f6..5a277919c 100644
--- a/pl/hacks.yap
+++ b/pl/hacks.yap
@@ -104,7 +104,7 @@ show_cp(CP, Continuation) -->
 		[Addr, Continuation, ClNo, Mod]]
 	),
 	{clean_goal(Goal,Mod,G)},
-	['~@.~q~n' -  write_term(G,Opts)].
+	['~@.~n' -  write_term(G,Opts)].
 
 show_env(Env,Cont,NCont) -->
 	{
@@ -114,7 +114,7 @@ show_env(Env,Cont,NCont) -->
         [ '0x~16r~t  ~16+ Cur~t ~d~16+ ~q:' -
 		[Addr, ClId, Mod] ],
 	{scratch_goal(Name, Arity, Mod, G)},
-	['~@.~q~n' - write_term(G,Opts)].
+	['~@.~n' - write_term(G,Opts)].
 
 clean_goal(G,Mod,NG) :-
 	beautify_hidden_goal(G,Mod,[NG],[]), !.