Index: openacs-4/tcl/0-acs-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/tcl/0-acs-init.tcl,v
diff -u -r1.6.10.2 -r1.6.10.3
--- openacs-4/tcl/0-acs-init.tcl	16 Oct 2013 19:21:24 -0000	1.6.10.2
+++ openacs-4/tcl/0-acs-init.tcl	26 Oct 2013 08:48:21 -0000	1.6.10.3
@@ -33,7 +33,7 @@
 	    if {[catch {set version [package require tdom]} errmsg]} { 
 		ns_log Error "0-acs-init.tcl: error loading tdom: $errmsg" 
 	    } else {
-		foreach {major minor point} [split $version .] { break }
+		lassign [split $version .] major minor point
 		if {$major == 0 
 		    && ( $minor < 7 || ($minor == 7 && $point < 8))} { 
 		    ns_log Error "0-acs-init.tcl: please use tdom version 0.7.8 or greater (you have version $version)"