From 81bb06e3fd33bad7aae956b7742421159e2d0df9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 12 Dec 2010 23:01:18 +0000
Subject: More clean up on string vs symbol confusions

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

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

diff --git a/src/interp/i-spec1.boot b/src/interp/i-spec1.boot
index 7b260fd9..b308aa38 100644
--- a/src/interp/i-spec1.boot
+++ b/src/interp/i-spec1.boot
@@ -229,7 +229,7 @@ upAlgExtension t ==
   clearDependencies(a,true)
   if $printTypeIfTrue then
     sayKeyedMsg("S2IS0003",NIL)
-    sayMSG concat ['%l,'"   ",saeTypeSynonym,'" := ",
+    sayMSG concat ['"%l",'"   ",saeTypeSynonym,'" := ",
       :prefix2String objVal saeTypeSynonymValue]
     sayMSG concat ['"   ",a,'" : ",saeTypeSynonym,'" := ",a]
   putValue(op,T2)
-- 
cgit v1.2.3