diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
index e1920104..950d46ed 100644
--- a/RELEASE_NOTES.md
+++ b/RELEASE_NOTES.md
@@ -1,3 +1,6 @@
+### 6.2.1
+* Fix `ParseResults.ProgramName` - make it public (cut and paste error in [#229](https://github.com/fsprojects/Argu/pull/229)) [#231](https://github.com/fsprojects/Argu/pull/231)
+
 ### 6.2.0
 * Add `ParseResults.ProgramName` [#229](https://github.com/fsprojects/Argu/pull/229)
 * Add `ParseResults.GetResult(expr, 'Field -> 'R): 'R` as alias for `PostProcessResult`, `ParseResults.GetResults(expr, 'Field -> 'R): 'R list` as alias for `PostProcessResults`, `ParseResults.TryGetResult(expr, 'Field -> 'R): 'R option` as alias for `TryPostProcessResult` [#230](https://github.com/fsprojects/Argu/pull/230)
diff --git a/src/Argu/ParseResults.fs b/src/Argu/ParseResults.fs
index 6a900dd1..77d264c6 100644
--- a/src/Argu/ParseResults.fs
+++ b/src/Argu/ParseResults.fs
@@ -50,7 +50,7 @@ type ParseResults<[<EqualityConditionalOn; ComparisonConditionalOn>]'Template wh
         member x.GetAllResults () = x.GetAllResults() |> Seq.map box
 
     member _.ErrorHandler = exiter
-    member internal _.ProgramName = programName
+    member _.ProgramName = programName
     member internal _.Description = description
     member internal _.ArgInfo = argInfo
     member internal _.CharacterWidth = usageStringCharWidth