Index: library/xotcl/apps/utils/xo-daemon
===================================================================
diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r6e4c08c5cf598e08cbc29516f84b09e5983e347c
--- library/xotcl/apps/utils/xo-daemon	(.../xo-daemon)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ library/xotcl/apps/utils/xo-daemon	(.../xo-daemon)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
@@ -50,7 +50,7 @@
 	\t-rundir dirname  (default: $::opt(-rundir))\n"
   exit -1
 }
-foreach {daemon action} $argv break
+lassign $argv daemon action
 array set opt [lreplace $argv 0 1]
 
 # The daemon scripts should be