From 9a42fab7fedf4b3af056aaee1162a908837b56ff Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@cs.indiana.edu>
Date: Thu, 13 Dec 2018 15:56:44 -0500
Subject: [PATCH] Rebuild expander for b1e765ca31d86.

---
 racket/src/racket/src/startup.inc | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc
index 2fdf175e9c..4789572402 100644
--- a/racket/src/racket/src/startup.inc
+++ b/racket/src/racket/src/startup.inc
@@ -60719,10 +60719,24 @@ static const char *startup_source =
 "(if as-correlated-linklet?_0"
 "(read-correlated-linklet-bundle-hash in_0)"
 "(1/read-linklet-bundle-hash in_0))))"
+"(begin"
+"(if(hash? b-ht_0)"
+"(void)"
+"(let-values()"
+"(raise-arguments-error"
+" 'read-linklet-bundle-hash"
+"                                                            \"bad read result\""
+"                                                            \"expected\""
+"                                                            \"hash/c\""
+"                                                            \"found\""
+"                                                            (format \"~s\" b-ht_0)"
+"                                                            \"in\""
+"(let-values(((n_0)(object-name in_0)))"
+"(if(path? n_0)(path->string n_0) in_0)))))"
 "(hash->linklet-bundle"
 "(add-hash-code"
 "(if initial?_0(strip-submodule-references b-ht_0) b-ht_0)"
-" sha-1_0)))))"
+" sha-1_0))))))"
 "(if(eqv? tag_0(char->integer '#\\D))"
 "(let-values()"
 "(begin"