1 files changed, 5 insertions, 5 deletions

diff --git a/lisp/cedet/srecode/mode.el b/lisp/cedet/srecode/mode.el
index 566ab5d366a..c92c45fa885 100644
--- a/lisp/cedet/srecode/mode.el
+++ b/lisp/cedet/srecode/mode.el
@@ -196,7 +196,7 @@ MENU-DEF is the menu to bind this into."
   ;;(srecode-load-tables-for-mode major-mode)
 
   (let* ((modetable (srecode-get-mode-table major-mode))
-         (subtab (when modetable (oref modetable :tables)))
+         (subtab (when modetable (slot-value modetable 'tables)))
          (context nil)
          (active nil)
          (ltab nil)
@@ -319,17 +319,17 @@ Template is chosen based on the mode of the starting buffer."
       (if (not temp)
           (error "No Template named %s" template-name))
       ;; We need a template specific table, since tables chain.
-      (let ((tab (oref temp :table))
+      (let ((tab (slot-value temp 'table))
             (names nil)
             )
-        (find-file (oref tab :file))
-        (setq names (semantic-find-tags-by-name (oref temp :object-name)
+        (find-file (slot-value tab 'file))
+        (setq names (semantic-find-tags-by-name (slot-value temp 'object-name)
                                                 (current-buffer)))
         (cond ((= (length names) 1)
                (semantic-go-to-tag (car names))
                (semantic-momentary-highlight-tag (car names)))
               ((> (length names) 1)
-               (let* ((ctxt (semantic-find-tags-by-name (oref temp :context)
+               (let* ((ctxt (semantic-find-tags-by-name (slot-value temp 'context)
                                                         (current-buffer)))
                       (cls (semantic-find-tags-by-class 'context ctxt))
                       )