From 80f04bfc96aa07a99eadc794b3ed4d276410a086 Mon Sep 17 00:00:00 2001
From: Bill Page <bill.page@newsynthesis.org>
Date: Fri, 30 May 2008 00:22:15 +0000
Subject: Fix typo in getConstructorKindFromDB

---
 src/interp/i-syscmd.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index cd46b09b..0c7d6258 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -1111,7 +1111,7 @@ displayValue($op,u,omitVariableNameIfTrue) ==
     STRCONC('"Value of ", PNAME $op,'": ")
   labmode := prefix2String objMode(u)
   if ATOM labmode then labmode := [labmode]
-  getConstructorKindDB expr = "domain" =>
+  getConstructorKindFromDB expr = "domain" =>
     sayMSG concat('"   ",label,labmode,rhs,form2String expr)
   mathprint ['CONCAT,label,:labmode,rhs,
     outputFormat(expr,objMode(u))]
-- 
cgit v1.2.3