--- portstartupitem.tcl 2006-07-21 11:07:40.000000000 +0200
+++ portstartupitem.tcl-new 2006-07-21 11:10:23.000000000 +0200
@@ -561,6 +561,7 @@
puts ${plist} "Program${program}"
puts ${plist} "ProgramArguments"
puts ${plist} ""
+ puts ${plist} "\t${program}"
foreach arg ${args} { puts ${plist} "\t${arg}" }
puts ${plist} ""