From ae60299c7def8a4c2af18320be773158936c6ac9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 12 May 2005 09:03:33 +0000
Subject: pre-release adjustments

---
 src/GF/Shell/PShell.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Shell/PShell.hs')

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index 92574ff9b..480284ccf 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:46:12 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.20 $
+-- > CVS $Date: 2005/05/12 10:03:33 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.21 $
 --
 -- parsing GF shell commands. AR 11\/11\/2001
 -----------------------------------------------------------------------------
@@ -97,7 +97,7 @@ pCommand ws = case ws of
   "gt" : []     -> aUnit   CGenerateTrees
   "gt" : t      -> aTerm   CGenerateTrees t
   "pt" : s      -> aTerm   CPutTerm s
------  "wt" : f : s  -> aTerm   (CWrapTerm (string2id f)) s
+  "wt" : f : s  -> aTerm   (CWrapTerm (pzIdent f)) s
   "ma" : s      -> aString CMorphoAnalyse s
   "tt" : s      -> aString CTestTokenizer s
   "cc" : s      -> aUnit   $ CComputeConcrete $ unwords s
-- 
cgit v1.2.3