Index: openacs-4/packages/photo-album/tcl/photo-album-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/tcl/photo-album-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	28 Jun 2015 12:56:09 -0000	1.22
+++ openacs-4/packages/photo-album/tcl/photo-album-procs.tcl	26 May 2017 18:05:36 -0000	1.23
@@ -196,7 +196,7 @@
     {-ext ""}
     id
 } { 
-    constructs a filename for an image based on id and extention.
+    constructs a filename for an image based on id and extension.
 } {
     if {$ext ne "" && ![regexp {^\.} $ext foo]} {
 	#add back the dot
@@ -284,9 +284,10 @@
 } {
     set root_folder [pa_get_root_folder $package_id]
 
-    # I check for the case that item is the root_folder first because this happens on the index page.
-    # Since index page accessed often, and the root_folder is within the package this avoids an unecessary
-    # trip to the database on a commonly accessed page.
+    # I check for the case that item is the root_folder first because
+    # this happens on the index page.  Since index page accessed
+    # often, and the root_folder is within the package this avoids an
+    # unnecessary trip to the database on a commonly accessed page.
  
     if {$content_type eq "content_folder" && $item_id eq $root_folder} {
 	return "t"