diff --git a/src/frontend/commands.c b/src/frontend/commands.c
index d75beb80d..e3d5761e0 100644
--- a/src/frontend/commands.c
+++ b/src/frontend/commands.c
@@ -127,7 +127,10 @@ struct comm spcp_coms[] = {
       { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
       arg_set,
       "[option] [option = value] ... : Set a variable." } ,
-
+    { "setcf", com_set, FALSE, TRUE,
+      { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
+      arg_set,
+      "[option] [option = value] ... : Set a variable, case remains as given." } ,
 
 /* support for altering options in interactive mode,
    using either command 'option' or 'options'*/
@@ -630,7 +633,10 @@ struct comm nutcp_coms[] = {
       { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
       arg_set,
       "[option] [option = value] ... : Set a variable." } ,
-
+    { "setcf", com_set, FALSE, TRUE,
+      { 020000, 020000, 020000, 020000 }, E_DEFHMASK, 0, LOTS,
+      arg_set,
+      "[option] [option = value] ... : Set a variable, case remains as given." } ,
 #ifdef EXPERIMENTAL_CODE
 /* PN support for altering options in interactive mode */
     { "option", com_option, TRUE, TRUE,
diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index c5ba8ee00..42fe46d59 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -917,7 +917,8 @@ inp_read(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile)
                 !ciprefix("source", buffer) &&
                 !ciprefix("load", buffer) &&
                 !ciprefix("plot", buffer) &&
-                !ciprefix("hardcopy", buffer)
+                !ciprefix("hardcopy", buffer) &&
+                !ciprefix("setcf", buffer)
                 )
             {
                 /* lower case for all other lines */