--- base/parse2/NumberNames.hs 8 Dec 2001 01:18:40 -0000 1.5
+++ base/parse2/NumberNames.hs 30 May 2006 09:33:37 -0000
@@ -7,5 +7,5 @@
--
numberNames m = mapNames conv m
where
- conv (SN i p) = PN i (S p)
+ conv (SN i p) = PN i (Sn (show i) p)
--}