[fix showing of class kinds
John Meacham <john@repetae.net>**20051207021023] hunk ./Interactive.hs 86
+    ptype x | nameType x == ClassName = hsep (map kindShow $ kindOfClass x (hoKinds ho))
+    ptype x = "UNKNOWN: " ++ show (nameType x,x)
hunk ./Interactive.hs 96
+kindShow Star = "*"
+kindShow x = parens (pprint x)