diff --git a/CodeCompletion/CodeFormatter.cs b/CodeCompletion/CodeFormatter.cs
index 790828b59..f69d9cc46 100644
--- a/CodeCompletion/CodeFormatter.cs
+++ b/CodeCompletion/CodeFormatter.cs
@@ -507,7 +507,7 @@ namespace CodeFormatters
             int pos = GetPosition(sn.source_context.begin_position.line_num, sn.source_context.begin_position.column_num);
             int prev_pos = 0;
             if (prev_sn != null)
-                if (read_from_beg_pos)
+                if (read_from_beg_pos || sn is procedure_definition && prev_sn is program_module)
                 {
                     prev_pos = GetPosition(prev_sn.source_context.begin_position.line_num, prev_sn.source_context.begin_position.column_num) + keyword_offset;
                 }
diff --git a/TestSuite/formatter_tests/input/Program1337.pas b/TestSuite/formatter_tests/input/Program1337.pas
new file mode 100644
index 000000000..a2e63bd4a
--- /dev/null
+++ b/TestSuite/formatter_tests/input/Program1337.pas
@@ -0,0 +1,3 @@
+class procedure p1 := exit;
+begin 
+end.
\ No newline at end of file