From 2929636a14fc04fb1703cdade25930dec5b4da9e Mon Sep 17 00:00:00 2001
From: Philipp Marek <philipp@marek.priv.at>
Date: Sat, 22 Feb 2014 12:27:26 +0100
Subject: [PATCH] #276 [PATCH]: printing hashtables readably is broken

https://sourceforge.net/p/ecls/bugs/276/
Thanks, Stas.
---
 src/c/printer/write_ugly.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/printer/write_ugly.d b/src/c/printer/write_ugly.d
index e7329943d..5d15cd0aa 100644
--- a/src/c/printer/write_ugly.d
+++ b/src/c/printer/write_ugly.d
@@ -154,7 +154,7 @@ write_hashtable(cl_object x, cl_object stream)
 				@':size', cl_hash_table_size(x),
 				@':rehash-size', cl_hash_table_rehash_size(x),
 				@':rehash-threshold', cl_hash_table_rehash_threshold(x),
-				@':test', cl_hash_table_test(x));
+				@':test', cl_list(2, @'quote', cl_hash_table_test(x)));
 		cl_object init =
 			cl_list(3, @'ext::hash-table-fill', make,
 				cl_list(2, @'quote', si_hash_table_content(x)));