diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -9,6 +9,17 @@
 User-visible changes in hledger-web.
 See also the hledger changelog.
 
+# 1.22.1 2021-08-02
+
+Improvements
+
+- deps: Allow megaparsec 9.1.
+
+Fixes
+
+- The register chart works again when there are multiple commodities and 
+  transaction prices (broken since 1.22). (#1597, Stephen Morgan)
+
 # 1.22 2021-07-03
 
 Improvements
diff --git a/Hledger/Web/Handler/RegisterR.hs b/Hledger/Web/Handler/RegisterR.hs
--- a/Hledger/Web/Handler/RegisterR.hs
+++ b/Hledger/Web/Handler/RegisterR.hs
@@ -107,7 +107,8 @@
    charttitle = if null title then "" else title ++ ":"
    colorForCommodity = fromMaybe 0 . flip lookup commoditiesIndex
    commoditiesIndex = zip (map fst percommoditytxnreports) [0..] :: [(CommoditySymbol,Int)]
-   simpleMixedAmountQuantity = maybe 0 aquantity . listToMaybe . amounts
+   simpleMixedAmountQuantity = maybe 0 aquantity . listToMaybe . amounts . mixedAmountStripPrices
+   showZeroCommodity = wbUnpack . showMixedAmountB oneLine{displayPrice=False,displayZeroCommodity=True}
    shownull c = if null c then " " else c
    nodatelink = (RegisterR, [("q", T.unwords $ removeDates q)])
 
diff --git a/hledger-web.1 b/hledger-web.1
--- a/hledger-web.1
+++ b/hledger-web.1
@@ -1,12 +1,12 @@
 
-.TH "HLEDGER-WEB" "1" "July 2021" "hledger-web-1.22 " "hledger User Manuals"
+.TH "HLEDGER-WEB" "1" "August 2021" "hledger-web-1.22.1 " "hledger User Manuals"
 
 
 
 .SH NAME
 .PP
 hledger-web is a web interface (WUI) for the hledger accounting tool.
-This manual is for hledger-web 1.22.
+This manual is for hledger-web 1.22.1.
 .SH SYNOPSIS
 .PP
 \f[C]hledger-web [OPTIONS]\f[R]
diff --git a/hledger-web.cabal b/hledger-web.cabal
--- a/hledger-web.cabal
+++ b/hledger-web.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           hledger-web
-version:        1.22
+version:        1.22.1
 synopsis:       Web-based user interface for the hledger accounting system
 description:    A simple web-based user interface for the hledger accounting system,
                 providing a more modern UI than the command-line or terminal interfaces.
@@ -151,7 +151,7 @@
   hs-source-dirs:
       ./
   ghc-options: -Wall -fwarn-tabs -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wredundant-constraints
-  cpp-options: -DVERSION="1.22"
+  cpp-options: -DVERSION="1.22.1"
   build-depends:
       Decimal >=0.5.1
     , aeson >=1
@@ -170,13 +170,13 @@
     , extra >=1.6.3
     , filepath
     , hjsmin
-    , hledger ==1.22.*
-    , hledger-lib ==1.22.*
+    , hledger >=1.22.1 && <1.23
+    , hledger-lib >=1.22.1 && <1.23
     , hspec
     , http-client
     , http-conduit
     , http-types
-    , megaparsec >=7.0.0 && <9.1
+    , megaparsec >=7.0.0 && <9.2
     , mtl >=2.2.1
     , network
     , shakespeare >=2.0.2.2
@@ -211,7 +211,7 @@
   hs-source-dirs:
       app
   ghc-options: -Wall -fwarn-tabs -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wredundant-constraints
-  cpp-options: -DVERSION="1.22"
+  cpp-options: -DVERSION="1.22.1"
   build-depends:
       base
     , hledger-web
@@ -231,7 +231,7 @@
   hs-source-dirs:
       test
   ghc-options: -Wall -fwarn-tabs -Wcompat -Wincomplete-uni-patterns -Wincomplete-record-updates -Wredundant-constraints
-  cpp-options: -DVERSION="1.22"
+  cpp-options: -DVERSION="1.22.1"
   build-depends:
       base
     , hledger
diff --git a/hledger-web.info b/hledger-web.info
--- a/hledger-web.info
+++ b/hledger-web.info
@@ -1,8 +1,8 @@
-This is hledger-web.info, produced by makeinfo version 6.7 from stdin.
+This is hledger-web.info, produced by makeinfo version 6.8 from stdin.
 
 INFO-DIR-SECTION User Applications
 START-INFO-DIR-ENTRY
-* hledger-web: (hledger-web/hledger-web).  Web UI/API for the hledger accounting tool.
+* hledger-web: (hledger-web).  Web UI/API for the hledger accounting tool.
 END-INFO-DIR-ENTRY
 
 
@@ -12,7 +12,7 @@
 **************
 
 hledger-web is a web interface (WUI) for the hledger accounting tool.
-This manual is for hledger-web 1.22.
+This manual is for hledger-web 1.22.1.
 
    'hledger-web [OPTIONS]'
 'hledger web -- [OPTIONS]'
@@ -602,22 +602,27 @@
 
 
 Tag Table:
-Node: Top235
-Node: OPTIONS1898
-Ref: #options2003
-Node: PERMISSIONS9436
-Ref: #permissions9575
-Node: EDITING UPLOADING DOWNLOADING10787
-Ref: #editing-uploading-downloading10968
-Node: RELOADING11802
-Ref: #reloading11936
-Node: JSON API12369
-Ref: #json-api12483
-Node: ENVIRONMENT17973
-Ref: #environment18089
-Node: FILES18822
-Ref: #files18922
-Node: BUGS19135
-Ref: #bugs19213
+Node: Top223
+Node: OPTIONS1888
+Ref: #options1993
+Node: PERMISSIONS9426
+Ref: #permissions9565
+Node: EDITING UPLOADING DOWNLOADING10777
+Ref: #editing-uploading-downloading10958
+Node: RELOADING11792
+Ref: #reloading11926
+Node: JSON API12359
+Ref: #json-api12473
+Node: ENVIRONMENT17963
+Ref: #environment18079
+Node: FILES18812
+Ref: #files18912
+Node: BUGS19125
+Ref: #bugs19203
 
 End Tag Table
+
+
+Local Variables:
+coding: utf-8
+End:
diff --git a/hledger-web.txt b/hledger-web.txt
--- a/hledger-web.txt
+++ b/hledger-web.txt
@@ -5,7 +5,7 @@
 
 NAME
        hledger-web  is  a web interface (WUI) for the hledger accounting tool.
-       This manual is for hledger-web 1.22.
+       This manual is for hledger-web 1.22.1.
 
 SYNOPSIS
        hledger-web [OPTIONS]
@@ -556,4 +556,4 @@
 
 
 
-hledger-web-1.22                   July 2021                    HLEDGER-WEB(1)
+hledger-web-1.22.1                August 2021                   HLEDGER-WEB(1)
diff --git a/templates/chart.hamlet b/templates/chart.hamlet
--- a/templates/chart.hamlet
+++ b/templates/chart.hamlet
@@ -36,8 +36,8 @@
            [
             #{dayToJsTimestamp $ triDate i},
             #{simpleMixedAmountQuantity $ triCommodityBalance c i},
-            '#{showMixedAmountWithZeroCommodity $ triCommodityAmount c i}',
-            '#{showMixedAmountWithZeroCommodity $ triCommodityBalance c i}',
+            '#{showZeroCommodity $ triCommodityAmount c i}',
+            '#{showZeroCommodity $ triCommodityBalance c i}',
             '#{concat $ intersperse "\\n" $ lines $ T.unpack $ showTransaction $ triOrigTransaction i}',
             #{tindex $ triOrigTransaction i}
            ],