X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsrc%2Fterminal_interface-curses-trace.adb_p;h=d2117a4cef17dd375eee836e14c5d19e35c608a1;hp=f40d8bf31230df1a08f6f42d524d6bde38bc8c7c;hb=37419a9e525f087444051c12ccadf5ef347dcb2b;hpb=f36e772702d4b512a4395e2db96470803485b6df

diff --git a/Ada95/src/terminal_interface-curses-trace.adb_p b/Ada95/src/terminal_interface-curses-trace.adb_p
index f40d8bf3..d2117a4c 100644
--- a/Ada95/src/terminal_interface-curses-trace.adb_p
+++ b/Ada95/src/terminal_interface-curses-trace.adb_p
@@ -35,7 +35,7 @@
 ------------------------------------------------------------------------------
 --  Author:  Juergen Pfeifer, 1996
 --  Version Control:
---  $Revision: 1.6 $
+--  $Revision: 1.7 $
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 #if ADA_TRACE then
@@ -66,7 +66,7 @@ package body Terminal_Interface.Curses.Trace is
 
    procedure Trace_Put (str : String) is
       procedure tracef (format : char_array; s : char_array);
-      pragma Import (C, tracef, "_tracef");
+      pragma Import (C, tracef, "_traces");
       Txt    : char_array (0 .. str'Length);
       Length : size_t;
       formatstr : constant String := "%s" &  ASCII.NUL;