From f07adaca9ae219e549f553a61be8fa9e42a25e7d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 Dec 1993 07:15:57 +0000
Subject: [PATCH] Fix bug in previous change.

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

diff --git a/v7/src/compiler/back/bittop.scm b/v7/src/compiler/back/bittop.scm
index 1f333b6c7..0e4c74ef3 100644
--- a/v7/src/compiler/back/bittop.scm
+++ b/v7/src/compiler/back/bittop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bittop.scm,v 1.18 1993/12/09 01:17:55 gjr Exp $
+$Id: bittop.scm,v 1.19 1993/12/18 07:15:57 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -184,7 +184,7 @@ MIT in each case. |#
 	      (let ((ob (object-new-type (ucode-type vector) output-block)))
 		(subvector-fill! ob
 				 (fix:+ bl 1)
-				 (vector-length ob)
+				 (system-vector-length ob)
 				 #f)
 		(vector-set! ob 0
 			     ((ucode-primitive primitive-object-set-type)
-- 
2.25.1