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