--- 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)
 --}