Index: openacs-4/packages/photo-album/www/random-photo.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/random-photo.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/photo-album/www/random-photo.tcl	8 Aug 2006 21:27:09 -0000	1.5
+++ openacs-4/packages/photo-album/www/random-photo.tcl	14 Oct 2013 17:56:30 -0000	1.6
@@ -39,10 +39,10 @@
     # Let's add the leading/tailing slashes so the url's will always work
     
     set url [string trim $url]
-    if {![string equal [string index $url 0] "/"]} {
+    if {[string index $url 0] ne "/" } {
         set url "/$url"
     }
-    if {![string equal [string index $url end] "/"]} {
+    if {[string index $url end] ne "/" } {
         set url "$url/"
     }