Problem with gplpcsc (PC/SC for Prolog)

Hello,

I am writing an article about different PC/SC wrapper and found the
Prolog wrapper at [1].

I try to use it but can't make my sample to work. I attach my sample program.
The output I get is:
ATR: [3B FA 94 00 00 81 31 20 43 80 65 A2 01 01 01 3D 72 D6 43 21 ]
tr: 00a404000aa00000006203010c0601 - 9000, t= 14ms.
Réponse : []
SW : [144,0]
Application error in transmit APDU de test
Réponse : []
SW : [144,0]
GNU Prolog 1.3.0
By Daniel Diaz
Copyright (C) 1999-2007 Daniel Diaz
| ?-

I traced the APDU at the pcsc-lite level and the second APDU is not sent.
In some cases I could send the two APDU but after restarting the
program it failed again.

I am not a Prolog expert or even user. I learnt Prolog more than 10
years ago at school :-)

Can you help debug my sample?
And I have to submit my article in 2 days :-(

Thanks a lot for any help,

[1] http://gprolog.cvs.sourceforge.net/gprolog/contribs/gplpcsc/

-- 
 Dr. Ludovic Rousseau

_______________________________________________
Users-prolog mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/users-prolog

:- include('pcsc/muscle').

start :-
	scard_establish_context,
	scard_connect,

	% print ATR data
	scard_status(_, Atr),
	print('ATR: '), print_hex_list(Atr), nl, 

	% enable trace
	scard_enable_verbose(true),

	(
		Commande = [0,0xA4,4,0,0x0A,0xA0,0,0,0,0x62,3,1,0x0C,6,1],
		scard_transmit(Commande, _Reponse, _Sw, _Time) -> true
	;
		print('Application error in transmit Select Applet'), nl 
	),
	print('Réponse : '), print(_Reponse), nl,
	print('SW : '), print(_Sw), nl,

	(
		Commande = [0,0,0,0],
		scard_transmit(Commande, _Reponse, _Sw, _Time) -> true
	;
		print('Application error in transmit APDU de test'), nl 
	),
	print('Réponse : '), print(_Reponse), nl,
	print('SW : '), print(_Sw), nl.

:- initialization(start).