diff --git a/src/InputParser/keywords/runspec.jl b/src/InputParser/keywords/runspec.jl
index eeb1232..1cf9180 100644
--- a/src/InputParser/keywords/runspec.jl
+++ b/src/InputParser/keywords/runspec.jl
@@ -169,6 +169,10 @@ function parse_keyword!(data, outer_data, units, cfg, f, ::Val{:ENDSCALE})
     rec = read_record(f)
     parser_message(cfg, outer_data, "ENDSCALE", PARSER_JUTULDARCY_MISSING_SUPPORT)
     tdims = ["NODIR", "REVERS", 1, 20, 0];
+    props = get_section(outer_data, :PROPS, set_current = false)
+    if !haskey(props, "SCALECRS")
+        props["SCALECRS"] = "NO"
+    end
     data["ENDSCALE"] = parse_defaulted_line(rec, tdims)
 end
 
diff --git a/src/InputParser/utils.jl b/src/InputParser/utils.jl
index e34b6df..abf3985 100644
--- a/src/InputParser/utils.jl
+++ b/src/InputParser/utils.jl
@@ -603,10 +603,12 @@ function clean_include_path(basedir, include_file_name)
     return include_path
 end
 
-function get_section(outer_data, name::Symbol)
+function get_section(outer_data, name::Symbol; set_current = true)
     s = "$name"
     is_sched = name == :SCHEDULE
-    outer_data["CURRENT_SECTION"] = name
+    if set_current
+        outer_data["CURRENT_SECTION"] = name
+    end
     T = OrderedDict{String, Any}
     if is_sched
         if !haskey(outer_data, s)