diff --git a/printer.lisp b/printer.lisp
index 924d89693b996bb7063340e35cfcffa9c6bb51b4..e547f647a7dcb756457bc683bd7b4e5418d7b205 100644
--- a/printer.lisp
+++ b/printer.lisp
@@ -819,6 +819,7 @@
 ;; Export the class name and all of the accessor names
 (defmethod collect-exports ((message protobuf-message))
   (append (list (proto-class message))
+          (mapcan #'collect-exports (proto-messages message))
           (mapcan #'collect-exports (proto-fields message))))
 
 ;; Export just the slot accessor name