diff --git a/hspace.hs b/hspace.hs
index ad9b788f133ee0d56acaf7ec6a3008ce9286a143..386e7eff9d3fb5089bd2765aa931283b92fc0433 100644
--- a/hspace.hs
+++ b/hspace.hs
@@ -296,10 +296,10 @@ main = do
            ix_byspec = groupBy ((==) `on` Instance.specOf) fin_trl_ixes
            spec_map = map (\ixs -> (Instance.specOf $ head ixs, length ixs))
                       ix_byspec::[(RSpec, Int)]
-           spec_map' = map (\(idx, (spec, cnt)) ->
-                                printf "%dx%dx%dx%d=%d" idx (rspecCpu spec)
-                                       (rspecMem spec) (rspecDsk spec) cnt)
-                       $ zip ([1..]::[Int]) spec_map::[String]
+           spec_map' = map (\(spec, cnt) ->
+                                printf "%d,%d,%d=%d" (rspecMem spec)
+                                       (rspecDsk spec) (rspecCpu spec) cnt)
+                       spec_map::[String]
 
        when (verbose > 1) $ do
          hPutStrLn stderr "Tiered allocation map"