From 32038f425fe093998bd875b939ccdc3d88b5acfc Mon Sep 17 00:00:00 2001
From: forsyth <forsyth@vitanuova.com>
Date: Fri, 8 Apr 2011 15:40:13 +0100
Subject: 20110408-1540

---
 appl/lib/json.b | 4 ++--
 appl/lib/vac.b  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'appl/lib')

diff --git a/appl/lib/json.b b/appl/lib/json.b
index 50e93b27..f4fdce14 100644
--- a/appl/lib/json.b
+++ b/appl/lib/json.b
@@ -279,9 +279,9 @@ writeval(out: ref Iobuf, o: ref JValue) raises(Badwrite)
 		String =>
 			writestring(out, r.s);
 		Int =>
-			puts(out, string r.value);
+			puts(out, r.text());
 		Real =>
-			puts(out, string r.value);
+			puts(out, r.text());
 		Object =>	# '{' [pair (',' pair)*] '}'
 			putc(out, '{');
 			for(l := r.mem; l != nil; l = tl l){
diff --git a/appl/lib/vac.b b/appl/lib/vac.b
index 0284fb1a..2ea78c12 100644
--- a/appl/lib/vac.b
+++ b/appl/lib/vac.b
@@ -1029,7 +1029,7 @@ p48(d: array of byte, i: int, v: big): int
 p64(d: array of byte, i: int, v: big): int
 {
 	p32(d, i+0, int (v>>32));
-	p32(d, i+0, int v);
+	p32(d, i+4, int v);
 	return i+BIT64SZ;
 }
 
-- 
cgit v1.2.3