diff --git a/src/compiler/GFTags.hs b/src/compiler/GFTags.hs
index fd75710e3..1fad82b99 100644
--- a/src/compiler/GFTags.hs
+++ b/src/compiler/GFTags.hs
@@ -17,7 +17,7 @@ mainTags opts files = do
   ioeIO (writeFile "tags" (unlines ((Set.toList . Set.fromList) tags)))
 
 getTags x (m,mi) = 
-  [showIdent i ++ "\t" ++ k ++ "\t" ++ l ++ "\t" ++ t 
+  [showIdent m ++ "." ++ showIdent i ++ "\t" ++ k ++ "\t" ++ l ++ "\t" ++ t 
        | (i,jment) <- Map.toList (jments mi),
          (k,l,t)   <- getLocations jment] ++ x
   where