diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 6988348b2b..b0d8411a7d 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-25  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+	Fix compatibility with Tcl before 7.5.
+	* lib/future.exp (lreverse): New function if it does not exist.
+
 2012-07-25  Marc Khouzam  <marc.khouzam@ericsson.com>
 
 	* gdb.mi/mi-pending.c: New method to set a second pending
diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp
index bf47988d0b..226a690682 100644
--- a/gdb/testsuite/lib/future.exp
+++ b/gdb/testsuite/lib/future.exp
@@ -521,3 +521,16 @@ if {$use_gdb_compile} {
     catch {rename default_target_compile {}}
     rename gdb_default_target_compile default_target_compile
 }
+
+
+# Provide 'lreverse' missing in Tcl before 7.5.
+
+if {[info procs lreverse] == ""} {
+    proc lreverse { arg } {
+	set retval {}
+	while { [llength $retval] < [llength $arg] } {
+	    lappend retval [lindex $arg end-[llength $retval]]
+	}
+	return $retval
+    }
+}