Index: lhs2tex-1.15/HsLexer.lhs
===================================================================
--- lhs2tex-1.15.orig/HsLexer.lhs	2011-06-02 20:34:39.000000000 +0200
+++ lhs2tex-1.15/HsLexer.lhs	2011-06-02 20:34:49.000000000 +0200
@@ -183,7 +183,7 @@
 > nested 0     ('#' : '-' : '}' : s)
 >                               =  ([], '#':'-':'}':s)
 > nested 0     ('-' : '}' : s)  =  ([], '-':'}':s)
-> nested (n+1) ('-' : '}' : s)  =  '-' <| '}' <| nested n s
+> nested n     ('-' : '}' : s)  =  '-' <| '}' <| nested (n - 1) s
 > nested n     ('{' : '-' : s)  =  '{' <| '-' <| nested (n + 1) s
 > nested n     (c : s)          =  c <| nested n s
 
