From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Feb 2017 06:31:27 +0000 (-0800)
Subject: Fix thinko in previous change.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~23
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80b3c5fa3000bb0552d830fc2573ed543cd2663c;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/src/runtime/infstr.scm b/src/runtime/infstr.scm
index 5b0ff6645..322b8a638 100644
--- a/src/runtime/infstr.scm
+++ b/src/runtime/infstr.scm
@@ -362,8 +362,8 @@ USA.
 (define (dbg-info-key? object)
   (or (and (bytevector? object)
 	   (fix:= (bytevector-length object) 32))
-      (and (legacy-string? object)
-	   (fix:= (legacy-string-length object) 32))))
+      (and ((ucode-primitive string? 1) object)
+	   (fix:= ((ucode-primitive string-length 1) object) 32))))
 
 (define (dbg-info-key=? a b)
   (equal? a b))