Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.67.2.8 -r1.67.2.9
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	1 Apr 2014 18:37:32 -0000	1.67.2.8
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	9 Sep 2014 08:32:03 -0000	1.67.2.9
@@ -1,5 +1,5 @@
 ad_library {
-    TCL library for the file-storage system (v.4)
+    Tcl library for the file-storage system (v.4)
     @author Kevin Scaldeferri (kevin@arsdigita.com)
     @creation-date 6 November 2000
     @cvs-id $Id$
@@ -194,7 +194,7 @@
     -node_id
 } {
     Create root folder for package instance
-    via tcl callback.
+    via Tcl callback.
 } {
     set folder_id [fs::get_root_folder -package_id $package_id]
 
@@ -206,7 +206,7 @@
     -node_id
 } {
     Create root folder for package instance
-    via tcl callback.
+    via Tcl callback.
 } {
     set folder_id [fs::get_root_folder -package_id $package_id]
 
@@ -1404,7 +1404,7 @@
 
 ad_proc -public fs::get_folder_package_and_root folder_id {
 
-    Returns a two-element tcl list containing the package_id
+    Returns a two-element Tcl list containing the package_id
     and root_folder_id for the passed-in folder_id.
 
     @author Andrew Grumet (aegrumet@alum.mit.edu)