diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 09e3f8cf..847b332b 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -487,6 +487,15 @@ begin
   if fTokStop > length(fLineBuf) then exit;
   readerReset;
 
+  // script line
+  if LineIndex = 0 then if fTokStart = 1 then
+    if readDelim(reader, fTokStop, '#!') then
+    begin
+      fTokKind := tkCommt;
+      readLine(reader, fTokStop);
+      exit;
+    end else readerReset;
+
   // spaces
   if (isWhite(reader^)) then
   begin