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/interp/msg.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp')

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