Fix typo.

diff --git a/v7/src/runtime/hashtb.scm b/v7/src/runtime/hashtb.scm
index ac498c3f4de1218c5d756638347cbbb989ed4f4c..7d6e337b7cfae2745dbd84c54d1a61840730555c 100644 (file)
--- a/v7/src/runtime/hashtb.scm
+++ b/v7/src/runtime/hashtb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: hashtb.scm,v 1.27 2003/07/29 03:46:04 cph Exp $
+$Id: hashtb.scm,v 1.28 2003/07/30 05:13:46 cph Exp $
 
 Copyright 1990,1991,1993,1994,1995,2003 Massachusetts Institute of Technology
 
@@ -814,7 +814,7 @@ USA.
 
 (define (mark-address-hash-tables!)
   (let loop ((previous #f) (tables address-hash-tables))
-    (if (pair? tables)
+    (if (system-pair? tables)
        (if (system-pair-car tables)
            (begin
              (set-table-needs-rehash?! (system-pair-car tables) #t)