diff --git a/free-programming-books.md b/free-programming-books.md
index a2bca3099..bba2b7fc4 100755
--- a/free-programming-books.md
+++ b/free-programming-books.md
@@ -116,6 +116,7 @@
 * [Subversion](#subversion)
 * [SQL (implementation agnostic)](#sql-implementation-agnostic)
 * [SQL Server](#sql-server)
+* [Tcl](#tcl)
 * [Teradata](#teradata)
 * [TeX](#tex)
 * [TypeScript](#typescript)
@@ -1212,6 +1213,10 @@ See also [TeX](#tex)
 * [Mastering SQL Server Profiler](http://www.red-gate.com/community/books/mastering-sql-server-profiler.htm) *(RedGate, By Brad McGehee)*
 
 
+###Tcl
+* [Tcl Programming](http://en.wikibooks.org/wiki/Programming:Tcl), by Richard.Suchenwirth, et. al.
+* [TclWise](http://www.invece.org/tclwise/index.html), by Salvatore Sanfilippo
+
 ###Teradata
 * [Teradata Books](http://www.info.teradata.com/)