diff --git a/src/GF/Speech/VoiceXML.hs b/src/GF/Speech/VoiceXML.hs
index 14a93c796..27a948863 100644
--- a/src/GF/Speech/VoiceXML.hs
+++ b/src/GF/Speech/VoiceXML.hs
@@ -45,10 +45,6 @@ pgfSkeleton pgf = [(c,[(f,fst (catSkeleton (lookType pgf f))) | f <- fs])
                    | (c,fs) <- Map.toList (catfuns (abstract pgf)),
                      not (isLiteralCat c)]
 
--- FIXME: should this go in a more general module?
-isLiteralCat :: CId -> Bool
-isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])
-
 --
 -- * Questions to ask 
 --
diff --git a/src/PGF/Macros.hs b/src/PGF/Macros.hs
index bb5e8188b..f579c07dd 100644
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -136,4 +136,5 @@ combinations t = case t of
   []    -> [[]]
   aa:uu -> [a:u | a <- aa, u <- combinations uu]
 
-
+isLiteralCat :: CId -> Bool
+isLiteralCat = (`elem` [mkCId "String", mkCId "Float", mkCId "Int"])
\ No newline at end of file