Idris Gambit CG: Can't pass argument of type %World to foreign function

Bug1.idr

%foreign "C:applyFn,libsome"
prim_applyFnIO : (PrimIO ()) -> PrimIO ()

applyFnIO : (IO ()) -> IO ()
applyFnIO f = primIO $ prim_applyFnIO (toPrim f)

main : IO ()
main = applyFnIO $ putStrLn "hello"

Makefile

bug: nobug1-check bug1-check nobug1 bug1
bug1-check:
        idris2 -c --cg chez Bug1.idr
        idris2 -c --cg gambit Bug1.idr
nobug1-check:
        idris2 -c --cg chez NoBug1.idr
        idris2 -c --cg gambit NoBug1.idr
bug1:
        idris2 --cg chez Bug1.idr -o c_bug1
        idris2 --cg gambit Bug1.idr -o g_bug1
nobug1:
        idris2 -c --cg chez NoBug1.idr -o c_nobug1
        idris2 -c --cg gambit NoBug1.idr -o g_nobug1

NoBug1.idr

%foreign "C:applyFn,libsome"
prim_applyFnIO : (String -> PrimIO ()) -> PrimIO ()

applyFnIO : (String -> IO ()) -> IO ()
applyFnIO f = primIO $ prim_applyFnIO (\str => toPrim $ f str)

main : IO ()
main = applyFnIO $ putStrLn