diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index b6ea36ae3..6de5a9c54 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -394,6 +394,11 @@
 				     (display ">" p)))
 			       type-name
 			       (copy-tree fields))))
+      ;; Temporary solution: Associate a name to the record type descriptor
+      ;; so that the object system can create a wrapper class for it.
+      (set-struct-vtable-name! struct (if (symbol? type-name)
+					  type-name
+					  (string->symbol type-name)))
       struct)))
 
 (define (record-type-name obj)