diff --git a/tasscan.c b/tasscan.c
index 5a5bc1a..c0f628e 100644
--- a/tasscan.c
+++ b/tasscan.c
@@ -272,6 +272,11 @@ static int TASHeader(pScanData self)
           pTAS->tasPar[BX]->fVal, pTAS->tasPar[BY]->fVal,
           pTAS->tasPar[BZ]->fVal);
 
+  sVar = FindCommandData(pServ->pSics, "ProposalID", "SicsVariable");
+  if (sVar != NULL) {
+    fprintf(self->fd,"PARAM: ProposalID=%s\n",sVar->text);
+  }
+
   /*
    * write mupad stuff if available
    */