From 59935893ac709e13379044fd5a56b6ab9d710597 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 17 Nov 2009 00:13:54 +0000
Subject: [PATCH] fix bad syntax (obs from Ulrich Neumerkel #137, after #138)

---
 pl/debug.yap | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/pl/debug.yap b/pl/debug.yap
index df0d80cbb..e323a662a 100644
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -556,12 +556,14 @@ debugging :-
 		%		( SL = L -> SLL = '>' ; SLL = ' '),
 	SLL = ' ',
 	( Module\=prolog,
-	    Module\=user ->
-	    format(user_error,'~a~a~a       (~d)    ~q: ~a:',[Det,CSPY,SLL,L,P0,Module])
+	  Module\=user
+	->
+	    GW = Module:G
 	;
-	    format(user_error,'~a~a~a       (~d)    ~q:',[Det,CSPY,SLL,L,P0])
+	    GW = G	  
 	),
-	'$debugger_write'(user_error,G).
+	format(user_error,'~a~a~a       (~d)    ~q:',[Det,CSPY,SLL,L,P0])
+	'$debugger_write'(user_error,GW).
 
 '$unleashed'(call) :- get_value('$leash',L), L /\ 2'1000 =:= 0. %'
 '$unleashed'(exit) :- get_value('$leash',L), L /\ 2'0100 =:= 0. %'