From 2a55d7892b7537bfb861d9449c67e47188868973 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 29 May 2017 20:33:21 +0000
Subject: [PATCH] Fix missing argument.

Noted by mejja.
---
 src/runtime/unpars.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 89ca89833..3b7dd42ca 100644
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -346,7 +346,7 @@ USA.
 (define (*unparse-with-brackets name object context procedure)
   (if (or (and (get-param:unparse-with-maximum-readability?) object)
           (context-in-brackets? context))
-      (*unparse-readable-hash object)
+      (*unparse-readable-hash object context)
       (begin
 	(*unparse-string "#[" context)
 	(let ((context* (context-in-brackets context)))
-- 
2.25.1