diff --git a/Geo/GModelIO_OCC.cpp b/Geo/GModelIO_OCC.cpp
index ec853d4d55f5cc5afae52ac9f2cc0d441ed9e45b..dc17a6bf8d20869e9a8d6f99796991128b585925 100644
--- a/Geo/GModelIO_OCC.cpp
+++ b/Geo/GModelIO_OCC.cpp
@@ -594,7 +594,7 @@ static void applyOCCMeshConstraints(GModel *m, const void *constraints)
           if(gf->getNativeType() != GEntity::OpenCascadeModel) continue;
           TopoDS_Shape *shape2 = (TopoDS_Shape*)gf->getNativePtr();
           if(shape.IsSame(*shape2)){
-            Msg::Debug("... embedding in face %g", gf->tag());
+            Msg::Debug("... embedding in face %d", gf->tag());
             gf->addEmbeddedVertex(gv);
           }
         }