Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.86.2.6 -r1.86.2.7
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	29 Sep 2013 19:23:18 -0000	1.86.2.6
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	29 Sep 2013 20:24:02 -0000	1.86.2.7
@@ -2463,7 +2463,7 @@
         ns_log Error "datasource contains no \":\"? datasource = $datasource"
         return ""
     }
-    return [string range $datasource [expr {$last_colon_pos + 1}] end]
+    return [string range $datasource $last_colon_pos+1 end]
 }
 
  
@@ -2484,7 +2484,7 @@
         ns_log Error "datasource contains no \":\"? datasource = $datasource"
         return ""
     }
-    return [string range $datasource 0 [expr {$first_colon_pos - 1}]]
+    return [string range $datasource 0 $first_colon_pos-1]
 }
 
 ad_proc -public db_source_sql_file {{