diff --git a/src/GF/Canon/GFCC/DataGFCC.hs b/src/GF/Canon/GFCC/DataGFCC.hs
index ea21ce6c6..389afc5a7 100644
--- a/src/GF/Canon/GFCC/DataGFCC.hs
+++ b/src/GF/Canon/GFCC/DataGFCC.hs
@@ -88,7 +88,7 @@ compute mcfg lang args = comp where
 
   look = lookLin mcfg lang
 
-  idx xs i = xs !! i 
+  idx xs i = if i > length xs - 1 then trace "overrun !!\n" (last xs) else xs !! i 
 
   proj r p = case (r,p) of
     (_,     FV ts) -> FV $ Prelude.map (proj r) ts
diff --git a/src/GF/Canon/GFCC/GenGFCC.hs b/src/GF/Canon/GFCC/GenGFCC.hs
index 00821cceb..f1d4e8923 100644
--- a/src/GF/Canon/GFCC/GenGFCC.hs
+++ b/src/GF/Canon/GFCC/GenGFCC.hs
@@ -43,6 +43,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
     gett ds (CId "Int")    = (Tr (AI 12345) [], 1)
     gett [] _ = (Tr (AS "TIMEOUT") [], 1) ----
     gett ds cat = case fns cat of
+      [] -> (Tr AM [],1)
       fs -> let 
           d:ds2    = ds
           (f,args) = getf d fs
diff --git a/src/Makefile b/src/Makefile
index 7d0a7f42c..7c13d043c 100644
--- a/src/Makefile
+++ b/src/Makefile
@@ -180,7 +180,7 @@ tools/$(GF_DOC_EXE): tools/GFDoc.hs
 gfcc:
 	$(GHMAKE) $(GHCOPTFLAGS) -o gfcc GF/Canon/GFCC/RunGFCC.hs
 	strip gfcc
-
+	mv gfcc ../bin/
 #
 # Distribution
 #