--- tcltutorial.orig/html/Tcl25.html	2010-03-03 11:21:55.000000000 -0800
+++ tcltutorial/html/Tcl25.html	2010-03-03 11:22:54.000000000 -0800
@@ -292,7 +292,7 @@
 
 set dirs [glob -nocomplain -type d *]
 if { $dirs != {} } {
-    puts "Directories:
+    puts "Directories:"
     foreach d [lsort $dirs] {
         puts "    $d"
     }
@@ -302,7 +302,7 @@
 
 set files [glob -nocomplain -type f *]
 if { $files != {} } {
-    puts "Files:
+    puts "Files:"
     foreach f [lsort $files] {
         puts "    [file size $f] - $f"
     }
--- tcltutorial.orig/html/Tcl26a.html	2010-03-03 11:21:55.000000000 -0800
+++ tcltutorial/html/Tcl26a.html	2010-03-03 11:23:19.000000000 -0800
@@ -22,11 +22,11 @@
 proc accept {socket address port} {
     puts "Accepted connection $socket from $address\:$port"
     # Copy input from the socket directly back to the socket
-    chan copy $socket $socket -command [list finish $socket]
+    fcopy $socket $socket -command [list finish $socket]
 }
 proc finish {socket args} {
     puts "Closed $socket"
-    catch { chan close $socket }
+    catch { close $socket }
 }
 socket -server accept 8080
 # Start the event loop by waiting on a non-existant variable 'forever'
