From b1ce8d8d74863091410f9f88f6679478de888e30 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 31 Jul 2001 13:11:40 +0000
Subject: [PATCH] [project @ 2001-07-31 13:11:40 by simonmar] merge
 ghc/lib/std/PrelErr.lhs rev. 1.21

---
 GHC/Err.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/Err.lhs b/GHC/Err.lhs
index d3596ff..c520f9b 100644
--- a/GHC/Err.lhs
+++ b/GHC/Err.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: Err.lhs,v 1.2 2001/07/31 13:11:07 simonmar Exp $
+% $Id: Err.lhs,v 1.3 2001/07/31 13:11:40 simonmar Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -52,7 +52,7 @@ error :: String -> a
 error s = throw (ErrorCall s)
 
 errorCString :: Addr# -> a
-errorCString s = error (unpackCString s)
+errorCString s = error (unpackCString# s)
 
 -- It is expected that compilers will recognize this and insert error
 -- messages which are more appropriate to the context in which undefined 
-- 
1.7.10.4