From f53f35978f4cd6b0e4c5e9123b5e88f04f6f4452 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 1 Apr 2004 09:51:32 +0000
Subject: 2beta2

---
 src/GF/Shell/PShell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index 0157112c8..c2db72e63 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -76,7 +76,7 @@ pCommand ws = case ws of
 -----  "wt" : f : s  -> aTerm   (CWrapTerm (string2id f)) s
   "ma" : s      -> aString CMorphoAnalyse s
   "tt" : s      -> aString CTestTokenizer s
-  "cc" : m : s  -> aUnit   $ CComputeConcrete (pzIdent m) $ unwords s
+  "cc" : s      -> aUnit   $ CComputeConcrete $ unwords s
 
   "tq" : i:o:[] -> aUnit   (CTranslationQuiz (language i) (language o))
   "tl":i:o:n:[] -> aUnit   (CTranslationList (language i) (language o) (readIntArg n))
-- 
cgit v1.2.3