diff --git a/source/compiler/sc2.c b/source/compiler/sc2.c
index 2787c57..1d78d60 100644
--- a/source/compiler/sc2.c
+++ b/source/compiler/sc2.c
@@ -1232,6 +1232,10 @@ static int command(void)
           if (!ok) {
             error(207);         /* unknown #pragma */
           }
+        } else if (strcmp(str,"compat")==0) {
+          cell val;
+          preproc_expr(&val,NULL);
+          pc_compat=(int)val;   /* switch compatibility mode on/off */
         } else {
           error(207);           /* unknown #pragma */
         } /* if */