From 975bf88d6c8ce494bf2eeef421e5d570bd6b7428 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 11 Jan 2008 18:27:07 +0000
Subject: 	* interp/msg.boot (getStFromMsg): Fix typo.

---
 src/ChangeLog       | 4 ++++
 src/interp/msg.boot | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index ef638235..fef2a847 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-11  Gabriel Dos Reis <gdr@cs.tamu.edu>
+
+	* interp/msg.boot (getStFromMsg): Fix typo.
+
 2008-01-10  Gabriel Dos Reis <gdr@cs.tamu.edu>
 
 	* algebra/syntax.spad (getOperator): Inject into the right
diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index 1bbae560..dbfb81b0 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -352,7 +352,7 @@ getStFromMsg msg ==
     setOptKeyBlanks()
     preStL := getPreStL getMsgPrefix? msg
     getMsgTag  msg = 'line =>
-          [$optKeyBlanks, '"%x1" , :preStL,_
+          [$optKeyBlanks, '"%1" , :preStL,_
            getMsgText msg]
     posStL := getPosStL msg
     optKey :=
-- 
cgit v1.2.3