From 3a052e8059873850bcd02fe9990f580a667036ab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 16 Dec 1986 06:25:56 +0000
Subject: [PATCH] Fix print wrapper to print hash number correctly.

---
 v7/src/compiler/base/utils.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 2739dc37a..5a2d98392 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -37,7 +37,7 @@
 
 ;;;; Compiler Utilities
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.71 1986/12/15 21:44:26 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.72 1986/12/16 06:25:56 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -56,7 +56,7 @@
 	    ((vector-method object ':UNPARSE) object))
 	  (write-string " ")
 	  (fluid-let ((*unparser-radix* 10))
-	    (write-string (object-hash object)))))))
+	    (write (object-hash object)))))))
     tag))
 
 (define (vector-tag-put! tag key value)
-- 
2.25.1