diff --git a/src/clos/print.lsp b/src/clos/print.lsp
index cae11e3e0..9b9b30f07 100644
--- a/src/clos/print.lsp
+++ b/src/clos/print.lsp
@@ -136,6 +136,9 @@ printer and we should rather use MAKE-LOAD-FORM."
              (values
               `(ext:hash-table-fill ,make-form ',content)
               nil))))
+      (random-state
+       (let ((state (ext:random-state-array object)))
+         (values `(make-random-state ,state) nil)))
       (t
        (no-make-load-form object)))))