diff --git a/src/GF/Compile/API.hs b/src/GF/Compile/API.hs
index 06baa1d47..242a9e87a 100644
--- a/src/GF/Compile/API.hs
+++ b/src/GF/Compile/API.hs
@@ -13,8 +13,9 @@ compileToGFCC :: Options -> [FilePath] -> IOE GFCC
 compileToGFCC opts fs = 
     do gr <- batchCompile opts fs
        let name = justModuleName (last fs)
-       let (abs,gc0) = mkCanon2gfcc opts name gr
-       gc1 <- ioeIO $ checkGFCCio gc0
+       gc1 <- putPointE opts "linking ... " $
+                let (abs,gc0) = mkCanon2gfcc opts name gr
+                in ioeIO $ checkGFCCio gc0
        let opt = if oElem (iOpt "noopt") opts then id else optGFCC
            par = if oElem (iOpt "noparse") opts then id else addParsers
        return (par (opt gc1))