Index: generic/gdbtk-bp.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-bp.c,v
retrieving revision 1.50
diff -u -p -r1.50 gdbtk-bp.c
--- generic/gdbtk-bp.c	10 Nov 2012 18:09:30 -0000	1.50
+++ generic/gdbtk-bp.c	16 Feb 2013 07:05:15 -0000
@@ -1,5 +1,5 @@
 /* Tcl/Tk command definitions for Insight - Breakpoints.
-   Copyright (C) 2001-2012 Free Software Foundation, Inc.
+   Copyright (C) 2001-2013 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -249,8 +249,8 @@ gdb_find_bp_at_line (ClientData clientDa
   Tcl_SetListObj (result_ptr->obj_ptr, 0, NULL);
   ALL_BREAKPOINTS (b)
   {
-    if (b->loc && b->loc->line_number == line
-	&& !strcmp (b->loc->source_file, s->filename))
+    if (b->loc && b->loc->symtab && b->loc->line_number == line
+	&& !strcmp (b->loc->symtab->filename, s->filename))
       {
 	Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr,
 				  Tcl_NewIntObj (b->number));