Fix typo (thanks to Brian).

1 files changed, 1 insertions, 1 deletions

diff --git a/scan.adb b/scan.adb
index a8ac7d1..67379c9 100644
--- a/scan.adb
+++ b/scan.adb
@@ -501,7 +501,7 @@ package body Scan is
                  ("'""' cannot close a bit string opened by '%'");
                exit;
             when '%' =>
-               pragma Assert (Mark = '%');
+               pragma Assert (Mark = '"');
                Error_Msg_Scan
                  ("'%' cannot close a bit string opened by '""'");
                exit;