diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs
index ed014cb60ca114bdb1889de68059e42d21d72826..a999cba7b92c0293b7502c45ad94ef53f809aefa 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -662,7 +662,7 @@ instance IArray UArray (StablePtr a) where
 
 -- bogus StablePtr value for initialising a UArray of StablePtr.
 nullStablePtr :: StablePtr a
-nullStablePtr = StablePtr (unsafeCoerce# 0#)
+nullStablePtr = StablePtr (unsafeCoerce# nullAddr#)
 
 instance IArray UArray Int8 where
     {-# INLINE bounds #-}