diff --git a/ghc/lib/std/PrelIOBase.lhs b/ghc/lib/std/PrelIOBase.lhs
index d0372759a06ad5444085b2c2d02c457c40823b30..c87b9ca37f386ab158e4a92d42347d0ad76ef007 100644
--- a/ghc/lib/std/PrelIOBase.lhs
+++ b/ghc/lib/std/PrelIOBase.lhs
@@ -1,5 +1,5 @@
% -----------------------------------------------------------------------------
-% $Id: PrelIOBase.lhs,v 1.23 2000/04/14 15:28:24 rrt Exp $
+% $Id: PrelIOBase.lhs,v 1.24 2000/05/30 12:50:04 sewardj Exp $
%
% (c) The AQUA Project, Glasgow University, 1994-1998
%
@@ -24,7 +24,7 @@ import PrelBase
import {-# SOURCE #-} PrelException ( ioError )
import PrelMaybe ( Maybe(..) )
import PrelAddr ( Addr(..), nullAddr )
-import PrelPack ( unpackCString )
+import {-# SOURCE #-} PrelPack ( unpackCString )
import PrelShow
#if !defined(__CONCURRENT_HASKELL__)
diff --git a/ghc/lib/std/PrelPack.hi-boot b/ghc/lib/std/PrelPack.hi-boot
index e7e6f6e550aa2cd8a039a60e8f10480bbd85875d..d23bd74f5b1f28abcddc4a849e9d4d4014452729 100644
--- a/ghc/lib/std/PrelPack.hi-boot
+++ b/ghc/lib/std/PrelPack.hi-boot
@@ -7,7 +7,8 @@
-- other Prelude files that precede PrelPack
---------------------------------------------------------------------------
-__interface PrelPack 1 1 1 where
-__export PrelPack packCStringzh ;
+__interface "std" PrelPack 1 407 where
+__export PrelPack packCStringzh unpackCString ;
1 packCStringzh :: [PrelBase.Char] -> PrelGHC.ByteArrayzh ;
+1 unpackCString :: PrelAddr.Addr -> [PrelBase.Char] ;