diff --git a/src/GF/System/ATKSpeechInput.hs b/src/GF/System/ATKSpeechInput.hs
index a470fe9e7..eac9765c1 100644
--- a/src/GF/System/ATKSpeechInput.hs
+++ b/src/GF/System/ATKSpeechInput.hs
@@ -23,6 +23,7 @@ import Speech.ATKRec
 
 import Control.Monad
 import Data.IORef
+import System.Environment
 import System.IO
 import System.IO.Unsafe
 
@@ -30,7 +31,7 @@ import System.IO.Unsafe
 
 config = "/home/aarne/atk/atkrec/atkrec.cfg"
 
-res = "/home/aarne/atk/atk/Resources"
+res = "/home/bjorn/src/atk/Resources"
 hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
 mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
 mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
@@ -44,6 +45,12 @@ initATK = do
        b <- readIORef initialized
        when (not b) $ do
                       hPutStrLn stderr "Initializing..."
+                      atk_home <- getEnv "ATK_HOME"
+                      let res = atk_home ++ "/Resources"
+                          hmmlist = res ++ "/UK_SI_ZMFCC/hmmlistbg"
+                          mmf0 = res ++ "/UK_SI_ZMFCC/WI4"
+                          mmf1 = res ++ "/UK_SI_ZMFCC/BGHMM2"
+                          dict = res ++ "/beep.dct"
                       initialize config
                       loadHMMSet "hmm_english" hmmlist mmf0 mmf1
                       loadDict "dict_english" dict