From 80b3c5fa3000bb0552d830fc2573ed543cd2663c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Feb 2017 22:31:27 -0800
Subject: [PATCH] Fix thinko in previous change.

---
 src/runtime/infstr.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))
-- 
2.25.1