1 files changed, 8 insertions, 2 deletions
diff --git a/hash.c b/hash.c
index c5330daf..b0d76175 100644
--- a/hash.c
+++ b/hash.c
@@ -419,10 +419,16 @@ static void hash_print_op(val hash, val out, val pretty, struct strm_ctx *ctx)
 
   put_char(chr('('), out);
 
-  if (h->hash_fun == equal_hash) {
-    obj_print_impl(equal_based_k, out, pretty, ctx);
+  if (opt_compat && opt_compat <= 188) {
+    if (h->hash_fun == equal_hash)
+      obj_print_impl(equal_based_k, out, pretty, ctx);
+    need_space = 1;
+  } else {
+    if (h->hash_fun == eql_hash)
+      obj_print_impl(eql_based_k, out, pretty, ctx);
     need_space = 1;
   }
+
   if (h->flags != hash_weak_none) {
     if (need_space)
       put_char(chr(' '), out);