diff --git a/servant-examples/getting-started/GS9.hs b/servant-examples/getting-started/GS9.hs
index 23b65514..382dd068 100644
--- a/servant-examples/getting-started/GS9.hs
+++ b/servant-examples/getting-started/GS9.hs
@@ -10,10 +10,10 @@ import Control.Monad.IO.Class
 import Data.Aeson
 import Data.Text (Text)
 import GHC.Generics
-import Math.Probable
 import Network.Wai
 import Servant
 import Servant.JQuery
+import System.Random
 
 import qualified Data.Text                  as T
 import qualified Language.Javascript.JQuery as JQ
@@ -26,9 +26,10 @@ data Point = Point
 instance ToJSON Point
 
 randomPoint :: MonadIO m => m Point
-randomPoint = liftIO . mwc $ Point <$> d <*> d
-  
-  where d = doubleIn (-1, 1)
+randomPoint = liftIO . getStdRandom $ \g ->
+  let (rx, g')  = randomR (-1, 1) g
+      (ry, g'') = randomR (-1, 1) g'
+  in (Point rx ry, g'')
 
 data Search a = Search
   { query   :: Text
diff --git a/servant-examples/servant-examples.cabal b/servant-examples/servant-examples.cabal
index a5faa08b..30db3497 100644
--- a/servant-examples/servant-examples.cabal
+++ b/servant-examples/servant-examples.cabal
@@ -25,7 +25,7 @@ executable getting-started
     , http-types
     , js-jquery
     , lucid
-    , probable
+    , random
     , servant
     , servant-docs
     , servant-jquery