From 92503810b66d63db1ea7c5c685654456930bfd01 Mon Sep 17 00:00:00 2001
From: Irwin <rodriguez.irwin@gmail.com>
Date: Mon, 11 Sep 2023 15:33:41 +0200
Subject: [PATCH] replace aCopia for laLista

---
 jsonfox.app          | Bin 81025 -> 81017 bytes
 src/jsonclass.prg    |   2 +-
 src/objecttojson.prg |   2 +-
 3 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/jsonfox.app b/jsonfox.app
index fdf41a80d79753ea057cfe058b40b005e6106783..17475ea3a11aecc71cfb94e4f72db0b7f7b624bd 100644
GIT binary patch
delta 648
zcmZqt$@23D3*Wy_{}q_T7+4vCtr!_rPvnzi%Ko-dbA~(<Z_Vbz^6AoyhMTpmuc(V<
za4<0Fb22bkaWOEIGcYjt0NI>1n?;kgSQ%L+J7lyu^Dzkg(f#|6gJIWC)`cwp{24;N
zgM_{?Fns4{xXH!foS&1Enp~2ZpC|G`lmR3xfF{g2`D2E}WW`JoUOtAuKUuR_|EU2D
z5t{6jsmmxdxgb-6QF!vqOk+lo$!9Yo`9&GNi81{B$HE}<kC`D<e6nd)*5u_`znFfr
zPhOn8h;h|sw;XLo?I2zT21THI(}B1a$bJCC%|Lc85Ssz<D<Gc<NE?W8Z=RDIbyjL3
zP(}<Wz{?0Epnwx3=s8`$no*?Qvy6cudN~7wDNr65WC#Ef6xjjM9ET*q1`_1j&%lra
z6wF7K00}Z2gGf{%OMnCgP5>PW6zo8f01EmsFoa)#Sh5OP1|+Eb5F&9FSpp=u@d-rY
zIkE&uuyguHpr2|w|1vOq`VUc~3JMJv00}w?F@gic9a#b-sH_i>$U>4}0|^EgF)~yE
S1?!O{z=EsIAv$IvNdN%tPks6T

delta 662
zcmezQgQf8&3*Wy_{}q_T7+4vitr!_LPvnziYS7xKIYXYw&u#Nz`E+SUgU#C3SJcG{
zI2ahrIT;w7xEL7985kHsfb5-an?;kgSQ+^yJ7lzZ^D_wi(f#|6gJIWC)`cwp{24;N
zgM_{?FnkwaxXH!foS&1Enp~2ZpC|G`lmR3xh$hSl6&IQ;n5n|c&+zvrYZmK2HK0Ml
zlbtek8HFboWNI*qOrDu(%qTkfY-S|C7{fPlhQI$<7-ar2GlWV^HqFZ7U}JD}_7CuM
zoIF447ZWqb<k{Ja7&mRU%h6`k4&-HEPy{+Y9f)gy?E6663}oj5u^AA*1oD}Hw1GJ1
z<|(;RXN_k9WyF92yo^8s3OGT6fn^K~azH_4Bnf7aVDfZDYetd!<mC(uGCLre<B-&_
zfdqy2Gce=;1@n<5K!O~{AQDx`5+Ff|6F`Ro1v`)=z=H7?Aa<-mmWaO~!@!{Z5F&FH
zSq3DybNU643wJ(YV3_z9qJ{<JX&3+r{`wD*P(_vi33>@Jf&;`ISpp=etq+mNLXuzu
b2}T$(GE@Nt>yadYf?~kbW)9IZ6G;XD%6ET#

diff --git a/src/jsonclass.prg b/src/jsonclass.prg
index 5d542dd..6944a40 100644
--- a/src/jsonclass.prg
+++ b/src/jsonclass.prg
@@ -4,7 +4,7 @@ define class JSONClass as session
 	LastErrorText 	= ""
 	lError 			= .f.
 	lShowErrors 	= .t.
-	version 		= "9.10"
+	version 		= "9.11"
 	hidden lInternal
 	hidden lTablePrompt
 	Dimension aCustomArray[1]
diff --git a/src/objecttojson.prg b/src/objecttojson.prg
index 35dbbaa..900fdd7 100644
--- a/src/objecttojson.prg
+++ b/src/objecttojson.prg
@@ -95,7 +95,7 @@ define class ObjectToJSON as session
 					*local array aCopia(alen(tValue. &gaMembers[j]))
 					local array laLista[1]
 					=acopy(tValue. &gaMembers[j], laLista)
-					lcJSONStr = lcJSONStr + this.AnyToJson(@aCopia)
+					lcJSONStr = lcJSONStr + this.AnyToJson(@laLista)
 				catch
 					try
 						lcJSONStr = lcJSONStr + this.AnyToJson(tValue. &gaMembers[j])