diff --git a/CHANGELOG.md b/CHANGELOG.md
index 1d333e4..55fbfc2 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -6,6 +6,12 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/)
 
 ## [Unreleased]
 
+## [32.1] - 2022-05-21
+
+### Fixed
+
+- Function overapplication.
+
 ## [32.0] - 2022-03-06
 
 ### Changed
@@ -404,7 +410,8 @@ The format is based on [Keep a Changelog](http://keepachangelog.com/)
 - y-or-n? fixed
 - compiler warnings suppressed in CLisp
 
-[Unreleased]: https://github.com/Shen-Language/shen-sources/compare/shen-32...HEAD
+[Unreleased]: https://github.com/Shen-Language/shen-sources/compare/shen-32.1...HEAD
+[32.1]: https://github.com/Shen-Language/shen-sources/compare/shen-32...shen-32.1
 [32.0]: https://github.com/Shen-Language/shen-sources/compare/shen-22.4...shen-32
 [22.4]: https://github.com/Shen-Language/shen-sources/compare/shen-22.3...shen-22.4
 [22.3]: https://github.com/Shen-Language/shen-sources/compare/shen-22.2...shen-22.3
diff --git a/README.md b/README.md
index 9350e22..9fcdf7d 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-[![Current Release](https://img.shields.io/badge/release-32-blue.svg)](https://github.com/Shen-Language/shen-sources/releases)
+[![Current Release](https://img.shields.io/badge/release-32.1-blue.svg)](https://github.com/Shen-Language/shen-sources/releases)
 
 # Official Shen Sources
 
@@ -32,7 +32,7 @@ Packages can be created for any version, but when uploading to the releases page
 
 ```
 make pure
-git checkout shen-32
+git checkout shen-32.1
 make fetch
 make klambda
 make release
diff --git a/sources/declarations.shen b/sources/declarations.shen
index 187679c..460b05d 100644
--- a/sources/declarations.shen
+++ b/sources/declarations.shen
@@ -47,7 +47,7 @@
 (set *infs* 0)
 (set *hush* false)
 (set *optimise* false)
-(set *version* "32")
+(set *version* "32.1")
 (set *step* false)
 (set *it* "")
 (set *residue* [])
diff --git a/sources/reader.shen b/sources/reader.shen
index eddac15..90562b8 100644
--- a/sources/reader.shen
+++ b/sources/reader.shen
@@ -530,7 +530,7 @@
                                (variable? F)                      (simple-curry [F | X])
                                (application? F)                   (simple-curry [F | X])
                                (partial-application*? F ArityF N) (lambda-function [F | X] (- ArityF N))
-                               (overapplication? F ArityF N)      (simple-curry [F | X])
+                               (overapplication? F ArityF N)      (simple-curry [[fn F] | X])
                                true                               [F | X])))
 
 (define zero-place?