CEDET (srecode-create-dictionary): Avoid obsolete object name

* lisp/cedet/srecode/dictionary.el (srecode-create-dictionary):
Don't use a symbol as an object name.  Reported by Pierre Lorenzon.

lisp/cedet/srecode/dictionary.el

@@ -195,8 +195,8 @@ associated with a buffer or parent."
 	      initfrombuff t)))
 
       ;; Create the new dictionary object.
-      (let ((dict (srecode-dictionary
-		   major-mode
+      (let ((dict (make-instance
+                   'srecode-dictionary
 		   :buffer   buffer
 		   :parent   parent
 		   :namehash (make-hash-table :test 'equal