From 3abfe0a7f15ff760fe7c6f95957f705e1301bfc6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 11 Jan 2009 00:19:02 +0000
Subject: 	Fix SF/2491986 	* interp/i-syscmd.boot (displayValue): Fix
 thinko. 	* testsuite/interpreter/sf-2491986.input (a): New.

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

(limited to 'src/interp/i-syscmd.boot')

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