diff --git a/scanner.pas b/scanner.pas
index 2dc5bb6..0821ae6 100644
--- a/scanner.pas
+++ b/scanner.pas
@@ -693,6 +693,7 @@ var
    val := GetInteger;
    debugFlag := odd(val);
    profileFlag := (val & $0002) <> 0;
+   profileFlag := profileFlag or debugFlag;
    end; {DoDebug}