1 files changed, 2 insertions, 3 deletions

diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el
index 2e70469fa39..ab6ab986f6a 100644
--- a/lisp/cedet/srecode/insert.el
+++ b/lisp/cedet/srecode/insert.el
@@ -648,8 +648,7 @@ Use DICTIONARY to resolve values."
 Use DICTIONARY to resolve values."
   (let* ((default (srecode-insert-ask-default sti dictionary))
          (compound-value
-          (srecode-field-value (oref sti object-name)
-                               :firstinserter sti
+          (srecode-field-value :firstinserter sti
                                :defaultvalue default))
          )
     ;; Return this special compound value as the thing to insert.
@@ -863,7 +862,7 @@ Return the remains of INPUT."
   (let* ((out (srecode-compile-split-code tag input STATE
                                           (oref ins object-name))))
     (oset ins template (srecode-template
-                        (eieio-object-name-string ins)
+                        :object-name (slot-value ins 'object-name)
                         :context nil
                         :args nil
                         :code (cdr out)))