1 files changed, 1 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index c852cc0..3668b0f 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1079,7 +1079,7 @@ package body Ghdlprint is
                exit when Current_Token = Tok_Eof;
             end loop;
          else
-            --  Scane file
+            --  Scan file
             Tok_Idx := Ref_Tokens.First;
             loop
                Scan;