diff --git a/oop_tcl.html b/oop_tcl.html
index 5c2d57eccba82d3d8466bb9c3d8d79c5c3b0e9ac..e2598f3d2d8e22dac9d56512212baaa50bb486d7 100644
--- a/oop_tcl.html
+++ b/oop_tcl.html
@@ -19,7 +19,7 @@ void oop_tcl_delete();
 <dl>
 <dt><b>oop_tcl_new</b>
 <dd>Create a liboop source which uses the
-<a href="http://www.purl.org/tcl/man/tcl8.3.2/TclLib/DoOneEvent.htm">Tcl
+<a href="http://www.purl.org/tcl/home/man/tcl8.3.2/TclLib/DoOneEvent.htm">Tcl
 event loop</a> for events.  There is only one such event loop, so this
 function is global.  You may call it multiple times; it will return the same 
 event source, but keep count of the number of users.<p>