Index: generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.135
diff -u -p -r1.135 gdbtk-cmds.c
--- generic/gdbtk-cmds.c	30 Jul 2013 23:16:43 -0000	1.135
+++ generic/gdbtk-cmds.c	15 Aug 2013 14:19:47 -0000
@@ -1461,7 +1461,7 @@ gdb_search (ClientData clientData, Tcl_I
 
   search_symbols (regexp, space, nfiles, files, &ss);
   if (ss != NULL)
-    old_chain = make_cleanup_free_search_symbols (ss);
+    old_chain = make_cleanup_free_search_symbols (&ss);
 
   Tcl_SetListObj (result_ptr->obj_ptr, 0, NULL);
 
@@ -1477,16 +1477,16 @@ gdb_search (ClientData clientData, Tcl_I
       if ((p->symbol != NULL
 	   && strncmp (SYMBOL_LINKAGE_NAME (p->symbol), "__tf", 4) != 0
 	   && strncmp (SYMBOL_LINKAGE_NAME (p->symbol), "_GLOBAL_", 8) != 0)
-	  || p->msymbol != NULL)
+	  || p->msymbol.minsym != NULL)
 	{
 	  elem = Tcl_NewListObj (0, NULL);
 
-	  if (p->msymbol == NULL)
+	  if (p->msymbol.minsym == NULL)
 	    Tcl_ListObjAppendElement (interp, elem,
 				      Tcl_NewStringObj (SYMBOL_PRINT_NAME (p->symbol), -1));
 	  else
 	    Tcl_ListObjAppendElement (interp, elem,
-				      Tcl_NewStringObj (SYMBOL_PRINT_NAME (p->msymbol), -1));
+				      Tcl_NewStringObj (SYMBOL_PRINT_NAME (p->msymbol.minsym), -1));
 
 	  if (show_files)
 	    {