diff --git a/grovel/grovel.lisp b/grovel/grovel.lisp
index 4c2da1ac2cfae68c3e45f03aabafe2686dea1e72..4f3599f3386d9142c0cf7d02c29417d841d7028f 100644
--- a/grovel/grovel.lisp
+++ b/grovel/grovel.lisp
@@ -505,7 +505,13 @@ int main(int argc, char**argv) {
           ((and symbol (not null))
            (c-print-symbol out type))
           (string
-           (c-format out "~A" type)))
+           (c-format out "~A" type))
+          (cons
+           (c-format out "(")
+           (dolist (sym type)
+             (c-print-symbol out sym)
+             (c-format out " "))
+           (c-format out ")")))
         (etypecase count
           (null t)
           (integer