aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot2
1 files changed, 1 insertions, 1 deletions
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))]