diff --git a/polterwrite.c b/polterwrite.c
index 7cf25da..c4c535b 100644
--- a/polterwrite.c
+++ b/polterwrite.c
@@ -117,10 +117,10 @@ static void writePolterdiGlobal(NXhandle hfil, NXdict hdict,
 
   NXDputalias(hfil,hdict,"estart",pBueffel);
   SNXSPutVariable(pServ->pSics,pCon,hfil,hdict,"iname","instrument"); 
-  sprintf(pBueffel,"%ld",strlen("SINQ, PSI, Switzerland"));
+  sprintf(pBueffel,"%d",(int)strlen("SINQ, PSI, Switzerland"));
   NXDupdate(hdict,"strdim",pBueffel);
   NXDputalias(hfil,hdict,"sname","SINQ, PSI, Switzerland");
-  sprintf(pBueffel,"%ld",strlen("continous spallation source"));
+  sprintf(pBueffel,"%d",(int)strlen("continous spallation source"));
   NXDupdate(hdict,"strdim",pBueffel);
   NXDputalias(hfil,hdict,"stype","continous spallation source");
   NXDupdate(hdict,"strdim","132");